1600
How do I set a computated cell individually

local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Number")
oDCOCX_Exontrol1:Columns:Add("Format")
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("1.23")
	var_Items:[CellValueFormat,h,1] := exComputedField
	var_Items:[CellValue,h,1] := "2 * %0 + ` (2 * Number)`"
	h := var_Items:AddItem("1.23")
	var_Items:[CellValueFormat,h,1] := exComputedField
	var_Items:[CellValue,h,1] := "3 * %0 + ` (3 * Number)`"
	h := var_Items:AddItem("1.23")
	var_Items:[CellValueFormat,h,1] := exComputedField
	var_Items:[CellValue,h,1] := "currency(%0) + ` ( Currency(Number) )`"
oDCOCX_Exontrol1:EndUpdate()
1599
How can I hide a specific hour
local var_Chart as IChart
local var_InsideZooms,var_InsideZooms1 as IInsideZooms
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:Columns:Add("Default")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowInsideZoom := true
	var_Chart:FirstWeekDay := exMonday
	var_Chart:FirstVisibleDate := SToD("20130331")
	var_Chart:[PaneWidth,false] := 52
	var_Chart:LevelCount := 2
	var_Chart:UnitScale := exHour
	var_Chart:[Level,1]:Label := "<font ;6><%h%></font>"
	var_Chart:UnitWidth := 14
	var_Chart:DrawGridLines := exAllLines
	var_Chart:AllowInsideZoom := true
	var_Chart:DefaultInsideZoomFormat:InsideUnit := exMinute
	var_Chart:AllowResizeInsideZoom := false
	var_Chart:InsideZoomOnDblClick := false
	var_InsideZooms := var_Chart:InsideZooms
		var_InsideZooms:SplitBaseLevel := false
		var_InsideZooms:DefaultWidth := 0
	var_InsideZooms1 := var_Chart:InsideZooms
		var_InsideZooms1:Add(SToD("20130331 23:00:00"))
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Item")
oDCOCX_Exontrol1:EndUpdate()
1598
Is it possible to define the keys of the drop down values to be strings rather than numeric values
METHOD OCX_Exontrol1Change(Item,ColIndex,NewValue) CLASS MainDialog
	// Change event - Occurs when the user changes the cell's content.
	OutputDebugString(String2Psz( "NewValue is" ))
	OutputDebugString(String2Psz( AsString(NewValue) ))
RETURN NIL

local var_Editor,var_Editor1 as IEditor
local var_Items as IItems

var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("DropDownList-String")}:Editor
	var_Editor:EditType := DropDownListType
	var_Editor:AddItem(1,"NYC|New York City",nil)
	var_Editor:AddItem(2,"CJN|Cluj Napoca",nil)
var_Editor1 := IColumn{oDCOCX_Exontrol1:Columns:Add("DropDownList-Numeric")}:Editor
	var_Editor1:EditType := DropDownListType
	var_Editor1:AddItem(1,"New York City",nil)
	var_Editor1:AddItem(2,"Cluj Napoca",nil)
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[CellValue,var_Items:AddItem("NYC"),1] := 2
1597
I have an edit field, when going to edit mode, the rightmost part is shown. Is it possible to show the left part instead

local var_Column as IColumn
local var_Editor as IEditor
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Edit")}
	var_Column:Width := 64
	var_Column:AllowSizing := false
	var_Editor := var_Column:Editor
		var_Editor:EditType := MaskType
		var_Editor:Mask := ";;;rich"
oDCOCX_Exontrol1:Columns:Add("Empty")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("This is a bit ot long text")
	var_Items:AddItem("")
oDCOCX_Exontrol1:EndUpdate()
1596
I have a drop down field, the control shows the rightmost part of the selected caption. Is it possible to show the left part
local var_Column,var_Column1 as IColumn
local var_Editor,var_Editor1,var_Editor2,var_Editor3 as IEditor
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("DropDown")}
	var_Column:Width := 64
	var_Column:AllowSizing := false
	var_Editor := var_Column:Editor
		var_Editor:DropDownAlignment := 0x20 | 
		var_Editor:EditType := DropDownType
		var_Editor:AddItem(1,"First item. This is a bit ot long text",nil)
		var_Editor:AddItem(2,"Second item. This is a bit ot long text",nil)
		var_Editor:AddItem(3,"Third item. This is a bit ot long text",nil)
		var_Editor:Mask := ";;;rich"
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("PickEdit")}
	var_Column1:Width := 64
	var_Column1:AllowSizing := false
	var_Editor1 := var_Column1:Editor
		var_Editor1:DropDownAlignment := 0x20 | 
		var_Editor1:EditType := PickEditType
		var_Editor1:AddItem(1,"First item. This is a bit ot long text",nil)
		var_Editor1:AddItem(2,"Second item. This is a bit ot long text",nil)
		var_Editor1:AddItem(3,"Third item. This is a bit ot long text",nil)
		var_Editor1:Mask := ";;;rich"
oDCOCX_Exontrol1:Columns:Add("Empty")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[CellValue,var_Items:AddItem("First item. This is a bit ot long text"),1] := "Second item. This is a bit ot long text"
	h := var_Items:AddItem("First item. This is a bit ot long text")
	var_Editor2 := var_Items:[CellEditor,h,0]
		var_Editor2:DropDownAlignment := 0x20 | 
		var_Editor2:EditType := DropDownType
		var_Editor2:AddItem(1,"First item. This is a bit ot long text",nil)
		var_Editor2:AddItem(2,"Second item. This is a bit ot long text",nil)
		var_Editor2:AddItem(3,"Third item. This is a bit ot long text",nil)
	var_Items:[CellValue,h,1] := "Second item. This is a bit ot long text"
	var_Editor3 := var_Items:[CellEditor,h,1]
		var_Editor3:DropDownAlignment := 0x20 | 
		var_Editor3:EditType := PickEditType
		var_Editor3:AddItem(1,"First item. This is a bit ot long text",nil)
		var_Editor3:AddItem(2,"Second item. This is a bit ot long text",nil)
		var_Editor3:AddItem(3,"Third item. This is a bit ot long text",nil)
oDCOCX_Exontrol1:EndUpdate()
1595
Is there a property for the back color of the dropdown field
local var_Editor as IEditor

oDCOCX_Exontrol1:BeginUpdate()
var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("Date")}:Editor
	var_Editor:EditType := DateType
	var_Editor:[Option,exDropDownBackColor] := 15790320
	var_Editor:[Option,exDropDownForeColor] := 65793
oDCOCX_Exontrol1:Items:AddItem(SToD("20010101"))
oDCOCX_Exontrol1:EndUpdate()
1594
Is it possible to change a back color of the field/cell when it takes a focus
METHOD OCX_Exontrol1EditClose() CLASS MainDialog
	// EditClose event - Occurs when the edit operation ends.
	local var_Items as IItems
	var_Items := oDCOCX_Exontrol1:Items
		var_Items:ClearCellBackColor(var_Items:FocusItem,oDCOCX_Exontrol1:FocusColumnIndex)
RETURN NIL

METHOD OCX_Exontrol1EditOpen() CLASS MainDialog
	// EditOpen event - Occurs when the edit operation starts.
	local var_Items,var_Items1 as IItems
	var_Items := oDCOCX_Exontrol1:Items
		var_Items:[CellBackColor,var_Items:FocusItem,oDCOCX_Exontrol1:FocusColumnIndex] := RGB(255,0,0)
	var_Items1 := oDCOCX_Exontrol1:Items
		var_Items1:[CellValue,var_Items1:FocusItem,oDCOCX_Exontrol1:FocusColumnIndex] := oDCOCX_Exontrol1:Items:[CellValue,oDCOCX_Exontrol1:Items:FocusItem,oDCOCX_Exontrol1:FocusColumnIndex]
RETURN NIL

local var_Items as IItems

oDCOCX_Exontrol1:FullRowSelect := exColumnSel
IColumn{oDCOCX_Exontrol1:Columns:Add("C1")}:Editor:EditType := EditType
IColumn{oDCOCX_Exontrol1:Columns:Add("C2")}:Editor:EditType := EditType
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[CellValue,var_Items:AddItem("v1"),1] := "v2"
	var_Items:[CellValue,var_Items:AddItem("v3"),1] := "v4"
1593
How can I display the current date mask, but still allow empty values

local var_Editor as IEditor
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:CauseValidateValue := exValidateCell
oDCOCX_Exontrol1:FullRowSelect := exColumnSel
oDCOCX_Exontrol1:DrawGridLines := exRowLines
var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("Date")}:Editor
	var_Editor:EditType := DateType
	var_Editor:Mask := "!99/99/9999;1;;empty=1,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,overtype"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem(nil)
	var_Items:AddItem(SToD("20010101"))
	var_Items:AddItem(nil)
oDCOCX_Exontrol1:EndUpdate()
1592
How can I align the days in a DateType editor
local var_Editor,var_Editor1,var_Editor2,var_Editor3,var_Editor4,var_Editor5 as IEditor
local var_Items as IItems

oDCOCX_Exontrol1:Columns:Add("DropDown")
var_Items := oDCOCX_Exontrol1:Items
	var_Editor := var_Items:[CellEditor,var_Items:AddItem(SToD("20010101")),0]
		var_Editor:EditType := DateType
		var_Editor:DropDownAlignment := RightAlignment
	var_Editor1 := var_Items:[CellEditor,var_Items:AddItem(SToD("20010101")),0]
		var_Editor1:EditType := DateType
		var_Editor1:DropDownAlignment := CenterAlignment
	var_Editor2 := var_Items:[CellEditor,var_Items:AddItem(SToD("20010101")),0]
		var_Editor2:EditType := DateType
		var_Editor2:DropDownAlignment := LeftAlignment
	var_Editor3 := var_Items:[CellEditor,var_Items:AddItem(SToD("20010101")),0]
		var_Editor3:EditType := DateType
		var_Editor3:DropDownAlignment := 0x20 | 
	var_Editor4 := var_Items:[CellEditor,var_Items:AddItem(SToD("20010101")),0]
		var_Editor4:EditType := DateType
		var_Editor4:DropDownAlignment := 0x20 | CenterAlignment
	var_Editor5 := var_Items:[CellEditor,var_Items:AddItem(SToD("20010101")),0]
		var_Editor5:EditType := DateType
		var_Editor5:DropDownAlignment := 0x20 | RightAlignment
1591
How can I align the drop down portion rather the inside captions
local var_Editor,var_Editor1 as IEditor
local var_Items as IItems

IColumn{oDCOCX_Exontrol1:Columns:Add("DropDown")}:Editor:EditType := DateType
var_Items := oDCOCX_Exontrol1:Items
	var_Editor := var_Items:[CellEditor,var_Items:AddItem(SToD("20010101")),0]
		var_Editor:EditType := DateType
		var_Editor:DropDownAlignment := 0x20 | 
	var_Editor1 := var_Items:[CellEditor,var_Items:AddItem(SToD("20010101")),0]
		var_Editor1:EditType := DateType
		var_Editor1:DropDownAlignment := exHOutside
	var_Items:AddItem(SToD("20010101"))
1590
Is it possible to show a message that the field is empty

local var_Column as IColumn
local var_Editor as IEditor

oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:FullRowSelect := exColumnSel
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Float")}
	var_Editor := var_Column:Editor
		var_Editor:EditType := MaskType
		var_Editor:Mask := ";;;float,digits=0,grouping=,invalid=empty,warning=invalid character"
oDCOCX_Exontrol1:Items:AddItem(192278)
oDCOCX_Exontrol1:Items:AddItem(1000)
1589
How can I mask a date

local var_Editor,var_Editor1,var_Editor2,var_Editor3,var_Editor4,var_Editor5,var_Editor6,var_Editor7,var_Editor8 as IEditor
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:CauseValidateValue := exValidateCell
oDCOCX_Exontrol1:FullRowSelect := exColumnSel
oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:Columns:Add("Date")
oDCOCX_Exontrol1:Columns:Add("Mask")
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem(SToD("20010101"))
	var_Editor := var_Items:[CellEditor,h,0]
		var_Editor:EditType := DateType
		var_Editor:Mask := "{1,12}/{1,31}/{1950,2050};1;;select=1,warning=Invalid character!,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,validateas=1"
	var_Items:[CellValue,h,1] := var_Items:[CellEditor,h,0]:Mask
	h := var_Items:AddItem(SToD("20010101"))
	var_Editor1 := var_Items:[CellEditor,h,0]
		var_Editor1:EditType := DateType
		var_Editor1:Mask := "!99/99/9999;1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,overtype"
	var_Items:[CellValue,h,1] := var_Items:[CellEditor,h,0]:Mask
	h := var_Items:AddItem(SToD("20010101"))
	var_Editor2 := var_Items:[CellEditor,h,0]
		var_Editor2:EditType := DateType
		var_Editor2:Mask := "!99/99/9999;;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,overtype"
	var_Items:[CellValue,h,1] := var_Items:[CellEditor,h,0]:Mask
	h := var_Items:AddItem(SToD("20010101"))
	var_Editor3 := var_Items:[CellEditor,h,0]
		var_Editor3:EditType := DateType
		var_Editor3:Mask := "!99/99/9999;; ;select=4,overtype,empty,warning=Invalid character!,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,validateas=1"
	var_Items:[CellValue,h,1] := var_Items:[CellEditor,h,0]:Mask
	h := var_Items:AddItem(SToD("20010101"))
	var_Editor4 := var_Items:[CellEditor,h,0]
		var_Editor4:EditType := DateType
		var_Editor4:Mask := "![0-9 ][0-9 ]/[0-9 ][0-9 ]/[0-9 ][0-9 ][0-9 ][0-9 ];1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,leading= "
	var_Items:[CellValue,h,1] := var_Items:[CellEditor,h,0]:Mask
	h := var_Items:AddItem(SToD("20010101"))
	var_Items:[FormatCell,h,0] := "len(value) ? shortdateF(value) : ``"
	var_Editor5 := var_Items:[CellEditor,h,0]
		var_Editor5:EditType := DateType
		var_Editor5:Mask := "!99/99/9999;1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,overtype,leading"
	var_Items:[CellValue,h,1] := var_Items:[CellEditor,h,0]:Mask
	h := var_Items:AddItem(SToD("20010101"))
	var_Items:[FormatCell,h,0] := "len(value) ? shortdateF(value) : ``"
	var_Editor6 := var_Items:[CellEditor,h,0]
		var_Editor6:EditType := DateType
		var_Editor6:Mask := "!00/00/0000;1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,overtype,leading"
	var_Items:[CellValue,h,1] := var_Items:[CellEditor,h,0]:Mask
	h := var_Items:AddItem(SToD("20010101"))
	var_Items:[FormatCell,h,0] := "len(value) ? shortdateF(value) : ``"
	var_Editor7 := var_Items:[CellEditor,h,0]
		var_Editor7:EditType := DateType
		var_Editor7:Mask := "!00/00/0000;;0;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,overtype"
	var_Items:[CellValue,h,1] := var_Items:[CellEditor,h,0]:Mask
	h := var_Items:AddItem(SToD("20010101"))
	var_Items:[FormatCell,h,0] := "len(value) ? shortdateF(value) : ``"
	var_Editor8 := var_Items:[CellEditor,h,0]
		var_Editor8:EditType := DateType
		var_Editor8:Mask := "!00/00/0000;;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=1,overtype"
	var_Items:[CellValue,h,1] := var_Items:[CellEditor,h,0]:Mask
oDCOCX_Exontrol1:EndUpdate()
1588
How can I display and edit an integer number to show grouping digits too ( no decimals)
local var_Column as IColumn
local var_Editor as IEditor

var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Float")}
	var_Column:FormatColumn := "value format `0`"
	var_Editor := var_Column:Editor
		var_Editor:EditType := MaskType
		var_Editor:Mask := ";;;float,digits=0"
oDCOCX_Exontrol1:Items:AddItem(192278)
1587
How can I display and edit a float number to show grouping digits too
local var_Column as IColumn
local var_Editor as IEditor

var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Float")}
	var_Column:FormatColumn := "value format ``"
	var_Editor := var_Column:Editor
		var_Editor:EditType := MaskType
		var_Editor:Mask := ";;;float"
oDCOCX_Exontrol1:Items:AddItem(192278)
1586
How can I mask a phone number

local var_Editor,var_Editor1,var_Editor2,var_Editor3 as IEditor
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:CauseValidateValue := exValidateCell
oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:FullRowSelect := exColumnSel
IColumn{oDCOCX_Exontrol1:Columns:Add("Phone")}:Editor:EditType := MaskType
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem(nil)
	var_Editor := var_Items:[CellEditor,h,0]
		var_Editor:EditType := MaskType
		var_Editor:Mask := "!(999) 000 0000;1;;select=1,empty,overtype,warning=invalid characer,invalid=The value you entered isn't appropriate for the input mask <b>'<%mask%>'</b> specified for this field."
	h := var_Items:AddItem("0123")
	var_Editor1 := var_Items:[CellEditor,h,0]
		var_Editor1:EditType := MaskType
		var_Editor1:Mask := "!(999) 000 0000;2;;select=4"
	h := var_Items:AddItem("0123")
	var_Editor2 := var_Items:[CellEditor,h,0]
		var_Editor2:EditType := MaskType
		var_Editor2:Mask := "`Phone: `!(999) 000-0000"
	h := var_Items:AddItem("(074) 876-1222")
	var_Editor3 := var_Items:[CellEditor,h,0]
		var_Editor3:EditType := MaskType
		var_Editor3:Mask := "!(999) 000-0000;0"
1585
Is it possible to display the ColorType fields using RGB format
local var_Editor,var_Editor1,var_Editor2,var_Editor3,var_Editor4,var_Editor5,var_Editor6 as IEditor
local var_Items as IItems
local h as USUAL

IColumn{oDCOCX_Exontrol1:Columns:Add("Color")}:Editor:EditType := ColorType
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem(255)
	h := var_Items:AddItem(255)
	var_Editor := var_Items:[CellEditor,h,0]
		var_Editor:EditType := ColorType
		var_Editor:Mask := "`RGB(`{0,255}\,{0,255}\,{0,255}`)`;;0"
	h := var_Items:AddItem(255)
	var_Editor1 := var_Items:[CellEditor,h,0]
		var_Editor1:EditType := ColorType
		var_Editor1:Mask := "`&H`XXXXXXXX`&`;;0;overtype,insertype,warning=Wrong!"
	h := var_Items:AddItem(255)
	var_Editor2 := var_Items:[CellEditor,h,0]
		var_Editor2:EditType := ColorType
		var_Editor2:Mask := "`0x`XX `0x`XX `0x`XX;;0;overtype,insertype,warning=Wrong!"
	h := var_Items:AddItem(255)
	var_Editor3 := var_Items:[CellEditor,h,0]
		var_Editor3:EditType := ColorType
		var_Editor3:Mask := "R{0,255} G{0,255} B{0,255};;0;overtype,insertype,warning=Wrong!"
	h := var_Items:AddItem(255)
	var_Editor4 := var_Items:[CellEditor,h,0]
		var_Editor4:EditType := ColorType
		var_Editor4:Mask := "`(hexa) RGB 0x`XXXXXX;;0;overtype,insertype,warning=Wrong!"
	h := var_Items:AddItem(255)
	var_Editor5 := var_Items:[CellEditor,h,0]
		var_Editor5:EditType := ColorType
		var_Editor5:Mask := "`(decimal) Red: `{0,255}` Green: `{0,255}` Blue: `{0,255};;0;overtype,insertype,warning=Wrong!"
	h := var_Items:AddItem(255)
	var_Editor6 := var_Items:[CellEditor,h,0]
		var_Editor6:EditType := ColorType
		var_Editor6:Mask := "`(combine) Red: `{0,255}` Green: 0x`XX` Blue: `{0,255};;0;overtype,insertype,warning=Wrong!"
1584
How can I specify a different color for bars that cross over the non-working part of the chart

local var_Bars as IBars
local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:Columns:Add("Task")
var_Bars := oDCOCX_Exontrol1:Chart:Bars
	var_Bars:Copy("Task","STask"):Color := RGB(255,0,0)
	var_Bars:Add("Task:STask"):Shortcut := "TS"
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 96
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:NonworkingDaysColor := var_Chart:Bars:[Item,"STask"]:Color
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"TS",SToD("20010102"),SToD("20010116"),nil,nil)
1583
How can I merge two columns

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:[CellMerge,Item,0] := 1
RETURN NIL

local var_Items as IItems

oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:TreeColumnIndex := -1
oDCOCX_Exontrol1:DrawGridLines := exAllLines
IColumn{oDCOCX_Exontrol1:Columns:Add("C1")}:[Def,exCellSingleLine] := false
oDCOCX_Exontrol1:Columns:Add("C2")
oDCOCX_Exontrol1:Columns:Add("C3")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines.")
	var_Items:AddItem("This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines.")
1582
How can I expand an item once the user clicks the column's checkbox

METHOD OCX_Exontrol1CellStateChanged(Item,ColIndex) CLASS MainDialog
	// CellStateChanged event - Fired after cell's state has been changed.
	local var_Items as IItems
	var_Items := oDCOCX_Exontrol1:Items
		var_Items:[ExpandItem,Item] := false
RETURN NIL

local var_Column as IColumn
local var_Columns as IColumns
local var_Items as IItems
local h,hChild as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Columns := oDCOCX_Exontrol1:Columns
	var_Column := IColumn{var_Columns:Add("")}
		var_Column:[Def,exCellHasCheckBox] := true
		var_Column:AllowSizing := false
		var_Column:Width := 18
		var_Column:PartialCheck := true
	var_Columns:Add("Tasks")
oDCOCX_Exontrol1:ShowFocusRect := false
oDCOCX_Exontrol1:HasButtons := exNoButtons
oDCOCX_Exontrol1:TreeColumnIndex := 1
oDCOCX_Exontrol1:Indent := 14
oDCOCX_Exontrol1:ExpandOnDblClick := false
oDCOCX_Exontrol1:LinesAtRoot := exNoLinesAtRoot
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("")
	var_Items:[CellState,h,0] := 1
	var_Items:[CellValue,h,1] := "Project"
	hChild := var_Items:InsertItem(h,nil,"")
	var_Items:[CellValue,hChild,1] := "Task 1"
	hChild := var_Items:InsertItem(h,nil,"")
	var_Items:[CellValue,hChild,1] := "Task 2"
	var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
1581
How can I define a column with check-box
local var_Column as IColumn
local var_Columns as IColumns
local var_Items as IItems
local h,hChild as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Columns := oDCOCX_Exontrol1:Columns
	var_Column := IColumn{var_Columns:Add("")}
		var_Column:[Def,exCellHasCheckBox] := true
		var_Column:AllowSizing := false
		var_Column:Width := 18
		var_Column:PartialCheck := true
	var_Columns:Add("Tasks")
oDCOCX_Exontrol1:ShowFocusRect := false
oDCOCX_Exontrol1:HasButtons := exNoButtons
oDCOCX_Exontrol1:TreeColumnIndex := 1
oDCOCX_Exontrol1:Indent := 14
oDCOCX_Exontrol1:ExpandOnDblClick := false
oDCOCX_Exontrol1:LinesAtRoot := exNoLinesAtRoot
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("")
	var_Items:[CellState,h,0] := 1
	var_Items:[CellValue,h,1] := "Project"
	hChild := var_Items:InsertItem(h,nil,"")
	var_Items:[CellValue,hChild,1] := "Task 1"
	hChild := var_Items:InsertItem(h,nil,"")
	var_Items:[CellValue,hChild,1] := "Task 2"
	var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
1580
We need to know how it's possibile to have the bars on the same line and not in a different line

local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DrawGridLines := exAllLines
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:DrawGridLines := exAllLines
	var_Chart:FirstVisibleDate := SToD("20020101")
	var_Chart:Bars:[Item,"Task"]:OverlaidType := exOverlaidBarsStackAutoArrange | exOverlaidBarsStack
	var_Chart:[PaneWidth,false] := 128
oDCOCX_Exontrol1:Columns:Add("Task")
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Tasks")
	var_Items:AddBar(h,"Task",SToD("20020102"),SToD("20020107"),"A",nil)
	var_Items:AddBar(h,"Task",SToD("20020103"),SToD("20020108"),"B",nil)
	var_Items:AddBar(h,"Task",SToD("20020104"),SToD("20020109"),"C",nil)
	var_Items:[ItemBar,h,"A",exBarColor] := 255
	var_Items:AddLink("AB",h,"A",h,"B")
	var_Items:AddLink("BC",h,"B",h,"C")
oDCOCX_Exontrol1:EndUpdate()
1579
The Change event gets me the today date. How can I find what user typed
METHOD OCX_Exontrol1Change(Item,ColIndex,NewValue) CLASS MainDialog
	// Change event - Occurs when the user changes the cell's content.
	OutputDebugString(String2Psz( "NewValue:" ))
	OutputDebugString(String2Psz( AsString(NewValue) ))
	OutputDebugString(String2Psz( "EditingValue:" ))
	OutputDebugString(String2Psz( oDCOCX_Exontrol1:EditingText ))
RETURN NIL


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
IColumn{oDCOCX_Exontrol1:Columns:Add("Edit")}:Editor:EditType := DateType
oDCOCX_Exontrol1:Items:AddItem(SToD("20010101"))
oDCOCX_Exontrol1:EndUpdate()
1578
How can I add a footer row
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:ShowLockedItems := true
oDCOCX_Exontrol1:DrawGridLines := exVLines
oDCOCX_Exontrol1:Columns:Add("C1")
oDCOCX_Exontrol1:Columns:Add("C2")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[LockedItemCount,exBottom] := 1
	h := var_Items:[LockedItem,exBottom,0]
	var_Items:[ItemBackColor,h] := RGB(128,128,128)
	var_Items:[ItemForeColor,h] := RGB(255,255,255)
	var_Items:[CellValue,h,0] := "footer c1"
	var_Items:[CellValue,h,1] := "footer c2"
	var_Items:[CellValue,var_Items:AddItem("cell"),1] := "cell"
1577
How can I add a header row
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:ShowLockedItems := true
oDCOCX_Exontrol1:DrawGridLines := exVLines
oDCOCX_Exontrol1:Columns:Add("C1")
oDCOCX_Exontrol1:Columns:Add("C2")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[LockedItemCount,exTop] := 1
	h := var_Items:[LockedItem,exTop,0]
	var_Items:[ItemBackColor,h] := RGB(128,128,128)
	var_Items:[ItemForeColor,h] := RGB(255,255,255)
	var_Items:[CellValue,h,0] := "footer c1"
	var_Items:[CellValue,h,1] := "footer c2"
	var_Items:[CellValue,var_Items:AddItem("cell"),1] := "cell"
1576
How can I fix a column, while other sizable and fill the control's client
local var_Column as IColumn

oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:Columns:Add("Sizable")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("F")}
	var_Column:AllowSizing := false
	var_Column:Width := 16
1575
How can I programmatically add more columns to the sort bar and other to be sorted, but not included in the sort bar

local var_Columns as IColumns

oDCOCX_Exontrol1:SortBarVisible := true
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add(AsString(0))
	var_Columns:Add(AsString(1))
	var_Columns:Add(AsString(2))
	var_Columns:Add(AsString(3))
	var_Columns:Add(AsString(4))
oDCOCX_Exontrol1:Layout := "multiplesort=" + CHR(34) + "C3:1 C4:2" + CHR(34) + ";singlesort=" + CHR(34) + "C2:1" + CHR(34) + ""
1574
I'm using different bar types, in order to use different colours. The problem I'm having is that when two bars of different types overlap, and should in the histogram show as overallocated, they instead overlap here too, and show as single unit. Is there a way I can correctly show this as an overallocation

local var_Chart as IChart
local var_Items as IItems
local h as USUAL

var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:HistogramVisible := true
	var_Chart:HistogramHeight := 32
	var_Chart:Bars:[Item,"Task"]:HistogramPattern := exPatternBDiagonal
	var_Chart:[PaneWidth,false] := 128
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
	h := var_Items:AddItem("Item 2")
	var_Items:AddBar(h,"Task",SToD("20010103"),SToD("20010107"),nil,nil)
	var_Items:[ItemBar,h,"",exBarColor] := 255
	var_Items:AddBar(var_Items:AddItem("Item 3"),"Task",SToD("20010106"),SToD("20010109"),nil,nil)
1573
Is it possible to assign a different EBN to a specified bar

local var_Appearance as IAppearance
local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(1,"c:\exontrol\images\normal.ebn")
	var_Appearance:Add(2,"c:\exontrol\images\pushed.ebn")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:[PaneWidth,false] := 128
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task 1")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),nil,nil)
	h := var_Items:AddItem("Task 2")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),nil,nil)
	var_Items:[ItemBar,h,"",exBarColor] := 255
	h := var_Items:AddItem("Task 3")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),nil,nil)
	var_Items:[ItemBar,h,"",exBarColor] := 16777216
	h := var_Items:AddItem("Task 4")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),nil,nil)
	var_Items:[ItemBar,h,"",exBarColor] := 16777471
	h := var_Items:AddItem("Task 5")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),nil,nil)
	var_Items:[ItemBar,h,"",exBarColor] := 33619967
oDCOCX_Exontrol1:EndUpdate()
1572
How can I provide a mask for a date column
METHOD OCX_Exontrol1Change(Item,ColIndex,NewValue) CLASS MainDialog
	// Change event - Occurs when the user changes the cell's content.
	OutputDebugString(String2Psz( "Prev Value " ))
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Items:[CellValue,Item,ColIndex]) ))
	OutputDebugString(String2Psz( "Check and Update the NewValue" ))
	OutputDebugString(String2Psz( AsString(NewValue) ))
	NewValue := SToD("20010101")
RETURN NIL

local var_Column as IColumn
local var_Editor as IEditor

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Date")}
	var_Column:FormatColumn := "day(value) + `/` + month(value) + `/` + year(value)"
	var_Editor := var_Column:Editor
		var_Editor:EditType := DateType
		var_Editor:Mask := "{1,12}\/{1,31}\/{1,2099}"
oDCOCX_Exontrol1:Items:AddItem(SToD("20010101"))
oDCOCX_Exontrol1:EndUpdate()
1571
I am trying to introduce a custom tool tip to those particular cells. I have it working and I know I can style the font etc. however, what I would like to do is style the tooltip container itself like add some padding or add a border color. Is this possible

oDCOCX_Exontrol1:ToolTipDelay := 1
oDCOCX_Exontrol1:ToolTipWidth := 364
oDCOCX_Exontrol1:VisualAppearance:Add(1,"C:\Program Files\Exontrol\ExG2antt\Sample\EBN\frame.ebn")
oDCOCX_Exontrol1:[Background,exToolTipAppearance] := 0x1000000
IColumn{oDCOCX_Exontrol1:Columns:Add("tootip")}:ToolTip := "this is a tooltip assigned to a column"
1570
Is it possible to edit a float number without using of e/E/d/D (exponent) and +/- (signs) characters
local var_Editor as IEditor

var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("Edit")}:Editor
	var_Editor:EditType := EditType
	var_Editor:Numeric := exDisableSigns | exFloatInteger
oDCOCX_Exontrol1:Items:AddItem(1.22)
1569
How can I edit a float number with no using of e/E/d/D and + character
local var_Editor as IEditor

var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("Edit")}:Editor
	var_Editor:EditType := EditType
	var_Editor:Numeric := exDisablePlus | exFloatInteger
oDCOCX_Exontrol1:Items:AddItem(1.22)
1568
Is it possible to edit a float number with no using of e/E/d/D (exponent) characters
local var_Editor as IEditor

var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("Edit")}:Editor
	var_Editor:EditType := EditType
	var_Editor:Numeric := exFloatInteger
oDCOCX_Exontrol1:Items:AddItem(1.22)
1567
How can I edit an integer with no using of +/- signs
local var_Editor as IEditor

var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("Edit")}:Editor
	var_Editor:EditType := EditType
	var_Editor:Numeric := 0xfc | exDisableSigns | exFloatInteger | exFloat
oDCOCX_Exontrol1:Items:AddItem(1)
1566
When I'm trying to show string with "line break" character (vbCrLF) in a textbox, it shows 2 squares. Is there any way to hide these squares

local var_Column,var_Column1,var_Column2 as IColumn
local var_Columns as IColumns
local var_Items as IItems

var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Value")
	var_Column := IColumn{var_Columns:Add("CellSingleLine = False")}
		var_Column:ComputedField := "%0"
		var_Column:[Def,exCellSingleLine] := false
	var_Column1 := IColumn{var_Columns:Add("FormatColumn/replace CRLF")}
		var_Column1:ComputedField := "%0"
		var_Column1:FormatColumn := "value replace `\r\n` with ``"
	var_Column2 := IColumn{var_Columns:Add("FormatColumn/replace TAB,CRLF")}
		var_Column2:ComputedField := "%0"
		var_Column2:FormatColumn := "(value replace `\t` with ``) replace `\r\n` with ``"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("a\ta\r\nb\tb")
1565
I am using the Chart.ShowLinksColor property, the question is it is possible to prevent changing the bar's color

local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 24
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:[PaneWidth,false] := 48
	var_Chart:NonworkingDays := 0
	var_Chart:LinksStyle := exLinkSolid
	var_Chart:[ShowLinksColor,exUpdateColorLinksOnly | exShowLinksStartFrom] := RGB(255,0,0)
	var_Chart:[ShowLinksColor,exUpdateColorLinksOnly | exShowLinksEndTo] := RGB(0,255,0)
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Task 1")
	var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"",nil)
	h2 := var_Items:AddItem("Task 2")
	var_Items:AddBar(h2,"Task",SToD("20010102"),SToD("20010104"),"",nil)
	var_Items:[ItemBar,h2,"",exBarSelected] := true
	var_Items:AddLink("L1",h1,"",h2,"")
	h3 := var_Items:AddItem("Task 3")
	var_Items:AddBar(h3,"Task",SToD("20010102"),SToD("20010104"),"",nil)
	var_Items:AddLink("L2",h2,"",h3,"")
	var_Items:SchedulePDM(0,"")
oDCOCX_Exontrol1:EndUpdate()
1564
Apparently, the links are shown on the back. Is there any option to bring them in front

local var_Chart as IChart
local var_Items as IItems
local h1,h2 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20060919")
	var_Chart:[PaneWidth,false] := 64
	var_Chart:NonworkingDaysPattern := exPatternSolid
	var_Chart:ShowLinks := exShowLinksFront | exShowExtendedLinks
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Task 1")
	var_Items:AddBar(h1,"Task",SToD("20060920"),SToD("20060922"),nil,nil)
	h2 := var_Items:AddItem("Task 2")
	var_Items:AddBar(h2,"Task",SToD("20060926"),SToD("20060928"),nil,nil)
	var_Items:[ItemBar,h2,"",exBarSelected] := true
	var_Items:AddLink("L1",h1,"",h2,"")
	var_Items:[Link,"L1",exLinkText] := "L1"
oDCOCX_Exontrol1:EndUpdate()
1563
How can I enable the extended links feature

local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 24
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:[PaneWidth,false] := 48
	var_Chart:NonworkingDays := 0
	var_Chart:LinksStyle := exLinkSolid
	var_Chart:ShowLinks := exShowExtendedLinks
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Task 1")
	var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"",nil)
	h2 := var_Items:AddItem("Task 2")
	var_Items:AddBar(h2,"Task",SToD("20010102"),SToD("20010104"),"",nil)
	var_Items:AddLink("L1",h1,"",h2,"")
	h3 := var_Items:AddItem("Task 3")
	var_Items:AddBar(h3,"Task",SToD("20010102"),SToD("20010104"),"",nil)
	var_Items:AddLink("L2",h3,"",h2,"")
	var_Items:SchedulePDM(0,"")
oDCOCX_Exontrol1:EndUpdate()
1562
How do I count all bars in the chart
local var_Chart as IChart
local var_Items as IItems
local hSummary,hTask as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 128
	var_Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
	hSummary := var_Items:AddItem("Task")
	var_Items:AddBar(hSummary,"Task",SToD("20010102"),SToD("20010105"),"K1",nil)
	hTask := var_Items:InsertItem(hSummary,nil,"Task A")
	var_Items:AddBar(hTask,"Task",SToD("20010102"),SToD("20010105"),"K1",nil)
	var_Items:AddBar(var_Items:InsertItem(hTask,nil,"Task A.1"),"Task",SToD("20010103"),SToD("20010105"),"K11",nil)
	var_Items:AddBar(var_Items:InsertItem(hTask,nil,"Task A.2"),"Task",SToD("20010103"),SToD("20010105"),"K12",nil)
	hTask := var_Items:InsertItem(hSummary,nil,"Task B")
	var_Items:AddBar(hTask,"Task",SToD("20010102"),SToD("20010105"),"K2",nil)
	hTask := var_Items:InsertItem(hTask,nil,"Task B.1")
	var_Items:AddBar(hTask,"Task",SToD("20010105"),SToD("20010109"),"K21",nil)
	var_Items:[ExpandItem,0] := true
	OutputDebugString(String2Psz( "Count: " ))
	OutputDebugString(String2Psz( AsString(var_Items:[ItemBar,0,"<*>",exBarsCount]) ))
oDCOCX_Exontrol1:EndUpdate()
1561
Is there any property to count the all child bars of a specified item ( all descendents )
local var_Chart as IChart
local var_Items as IItems
local hSummary,hTask as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 128
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:Bars:Copy("Task","CountTask"):Color := RGB(0,255,0)
var_Items := oDCOCX_Exontrol1:Items
	hSummary := var_Items:AddItem("Project")
	var_Items:[ItemBold,hSummary] := true
	hTask := var_Items:InsertItem(hSummary,nil,"Task A")
	var_Items:AddBar(hTask,"CountTask",SToD("20010102"),SToD("20010105"),"K1",nil)
	var_Items:AddBar(var_Items:InsertItem(hTask,nil,"Task A.1"),"CountTask",SToD("20010103"),SToD("20010105"),"K11",nil)
	var_Items:AddBar(var_Items:InsertItem(hTask,nil,"Task A.2"),"CountTask",SToD("20010103"),SToD("20010105"),"K12",nil)
	hTask := var_Items:InsertItem(hSummary,nil,"Task B")
	var_Items:AddBar(hTask,"CountTask",SToD("20010102"),SToD("20010105"),"K2",nil)
	hTask := var_Items:InsertItem(hTask,nil,"Task B.1")
	var_Items:AddBar(hTask,"CountTask",SToD("20010105"),SToD("20010109"),"K21",nil)
	var_Items:[ExpandItem,0] := true
	var_Items:DefaultItem := var_Items:[ItemByIndex,0]
	OutputDebugString(String2Psz( "Count: " ))
	OutputDebugString(String2Psz( AsString(var_Items:[ItemBar,-3,"<*>",exBarsCount]) ))
	var_Items:DefaultItem := 0
oDCOCX_Exontrol1:EndUpdate()
1560
Is there any property to count the child bars of a specified item ( leaf descendents )
local var_Chart as IChart
local var_Items as IItems
local hSummary,hTask as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 128
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:Bars:Copy("Task","CountTask"):Color := RGB(0,255,0)
var_Items := oDCOCX_Exontrol1:Items
	hSummary := var_Items:AddItem("Project")
	var_Items:[ItemBold,hSummary] := true
	hTask := var_Items:InsertItem(hSummary,nil,"Task A")
	var_Items:AddBar(hTask,"Task",SToD("20010102"),SToD("20010105"),"K1",nil)
	var_Items:AddBar(var_Items:InsertItem(hTask,nil,"Task A.1"),"CountTask",SToD("20010103"),SToD("20010105"),"K11",nil)
	var_Items:AddBar(var_Items:InsertItem(hTask,nil,"Task A.2"),"CountTask",SToD("20010103"),SToD("20010105"),"K12",nil)
	hTask := var_Items:InsertItem(hSummary,nil,"Task B")
	var_Items:AddBar(hTask,"Task",SToD("20010102"),SToD("20010105"),"K2",nil)
	hTask := var_Items:InsertItem(hTask,nil,"Task B.1")
	var_Items:AddBar(hTask,"CountTask",SToD("20010105"),SToD("20010109"),"K21",nil)
	var_Items:[ExpandItem,0] := true
	var_Items:DefaultItem := var_Items:[ItemByIndex,0]
	OutputDebugString(String2Psz( "Count: " ))
	OutputDebugString(String2Psz( AsString(var_Items:[ItemBar,-2,"<*>",exBarsCount]) ))
	var_Items:DefaultItem := 0
oDCOCX_Exontrol1:EndUpdate()
1559
Is there any property to count the child bars of a specified item ( direct descendents )
local var_Chart as IChart
local var_Items as IItems
local hSummary,hTask as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 128
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:Bars:Copy("Task","CountTask"):Color := RGB(0,255,0)
var_Items := oDCOCX_Exontrol1:Items
	hSummary := var_Items:AddItem("Project")
	var_Items:[ItemBold,hSummary] := true
	hTask := var_Items:InsertItem(hSummary,nil,"Task A")
	var_Items:AddBar(hTask,"CountTask",SToD("20010102"),SToD("20010105"),"K1",nil)
	var_Items:AddBar(var_Items:InsertItem(hTask,nil,"Task A.1"),"Task",SToD("20010103"),SToD("20010105"),"K11",nil)
	var_Items:AddBar(var_Items:InsertItem(hTask,nil,"Task A.2"),"Task",SToD("20010103"),SToD("20010105"),"K12",nil)
	hTask := var_Items:InsertItem(hSummary,nil,"Task B")
	var_Items:AddBar(hTask,"CountTask",SToD("20010102"),SToD("20010105"),"K2",nil)
	hTask := var_Items:InsertItem(hTask,nil,"Task B.1")
	var_Items:AddBar(hTask,"Task",SToD("20010105"),SToD("20010109"),"K21",nil)
	var_Items:[ExpandItem,0] := true
	var_Items:DefaultItem := var_Items:[ItemByIndex,0]
	OutputDebugString(String2Psz( "Count: " ))
	OutputDebugString(String2Psz( AsString(var_Items:[ItemBar,-1,"<*>",exBarsCount]) ))
	var_Items:DefaultItem := 0
oDCOCX_Exontrol1:EndUpdate()
1558
How can I define all child items to belong to a summary bar (DefineSummaryBars-3)

local var_Chart as IChart
local var_Items as IItems
local hSummary,hTask as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 128
	var_Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
	hSummary := var_Items:AddItem("Summary")
	var_Items:AddBar(hSummary,"Summary",SToD("20010102"),SToD("20010102"),"",nil)
	hTask := var_Items:InsertItem(hSummary,nil,"Task A")
	var_Items:AddBar(hTask,"Task",SToD("20010102"),SToD("20010105"),"K1",nil)
	hTask := var_Items:InsertItem(hTask,nil,"Task A.1")
	var_Items:AddBar(hTask,"Task",SToD("20010103"),SToD("20010105"),"K11",nil)
	hTask := var_Items:InsertItem(hSummary,nil,"Task B")
	var_Items:AddBar(hTask,"Task",SToD("20010102"),SToD("20010105"),"K2",nil)
	hTask := var_Items:InsertItem(hTask,nil,"Task B.1")
	var_Items:AddBar(hTask,"Task",SToD("20010105"),SToD("20010109"),"K21",nil)
	var_Items:DefineSummaryBars(hSummary,"",-3,"<K*>")
	var_Items:[ExpandItem,0] := true
oDCOCX_Exontrol1:EndUpdate()
1557
Can I define automatically the leaf descendents of the summary bar (DefineSummaryBars-2)

local var_Chart as IChart
local var_Items as IItems
local hSummary,hTask as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 128
	var_Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
	hSummary := var_Items:AddItem("Summary")
	var_Items:AddBar(hSummary,"Summary",SToD("20010102"),SToD("20010102"),"",nil)
	hTask := var_Items:InsertItem(hSummary,nil,"Task A")
	var_Items:AddBar(hTask,"1Task",SToD("20010102"),SToD("20010105"),"K1",nil)
	hTask := var_Items:InsertItem(hTask,nil,"Task A.1")
	var_Items:AddBar(hTask,"Task",SToD("20010103"),SToD("20010105"),"K11",nil)
	hTask := var_Items:InsertItem(hSummary,nil,"Task B")
	var_Items:AddBar(hTask,"1Task",SToD("20010102"),SToD("20010105"),"K2",nil)
	hTask := var_Items:InsertItem(hTask,nil,"Task B.1")
	var_Items:AddBar(hTask,"Task",SToD("20010105"),SToD("20010109"),"K21",nil)
	var_Items:DefineSummaryBars(hSummary,"",-2,"<K*>")
	var_Items:[ExpandItem,0] := true
oDCOCX_Exontrol1:EndUpdate()
1556
How can I assign the childs bars to a summary bar (DefineSummaryBars-1)

local var_Chart as IChart
local var_Items as IItems
local hSummary,hTask as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 128
	var_Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
	hSummary := var_Items:AddItem("Summary")
	var_Items:AddBar(hSummary,"Summary",SToD("20010102"),SToD("20010102"),"",nil)
	hTask := var_Items:InsertItem(hSummary,nil,"Task A")
	var_Items:AddBar(hTask,"Task",SToD("20010102"),SToD("20010105"),"K1",nil)
	hTask := var_Items:InsertItem(hSummary,nil,"Task B")
	var_Items:AddBar(hTask,"Task",SToD("20010104"),SToD("20010108"),"K2",nil)
	var_Items:[ExpandItem,hSummary] := true
	var_Items:DefineSummaryBars(hSummary,"",-1,"<*>")
oDCOCX_Exontrol1:EndUpdate()
1555
Is it possible to define a summary bar to include all bars in the chart (DefineSummaryBars-0)

local var_Chart as IChart
local var_Items as IItems
local hSummary as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 128
	var_Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
	hSummary := var_Items:AddItem("Summary")
	var_Items:AddBar(hSummary,"Summary",SToD("20010102"),SToD("20010102"),"summary",nil)
	var_Items:AddBar(var_Items:AddItem("Task A"),"Task",SToD("20010102"),SToD("20010105"),"K1",nil)
	var_Items:AddBar(var_Items:AddItem("Task B"),"Task",SToD("20010106"),SToD("20010109"),"K2",nil)
	var_Items:AddBar(var_Items:AddItem("Task C"),"Task",SToD("20010111"),SToD("20010114"),"K3",nil)
	var_Items:DefineSummaryBars(hSummary,"summary",0,"<K*>")
oDCOCX_Exontrol1:EndUpdate()
1554
Is there any way to "unselect" radio group
METHOD OCX_Exontrol1DblClick(Shift,X,Y) CLASS MainDialog
	// DblClick event - Occurs when the user dblclk the left mouse button over an object.
	local var_Items as IItems
	local h as USUAL
	var_Items := oDCOCX_Exontrol1:Items
		h := var_Items:[CellChecked,1234]
		var_Items:[CellHasCheckBox,0,h] := true
		var_Items:[CellState,0,h] := 0
		var_Items:[CellHasCheckBox,0,h] := false
RETURN NIL

METHOD OCX_Exontrol1SelectionChanged() CLASS MainDialog
	// SelectionChanged event - Fired after a new item has been selected.
	local var_Items as IItems
	var_Items := oDCOCX_Exontrol1:Items
		var_Items:[CellState,var_Items:FocusItem,0] := 1
RETURN NIL

local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SelBackColor := RGB(255,255,128)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Radio 1")
	var_Items:[CellHasRadioButton,h,0] := true
	var_Items:[CellRadioGroup,h,0] := 1234
	h := var_Items:AddItem("Radio 2")
	var_Items:[CellHasRadioButton,h,0] := true
	var_Items:[CellRadioGroup,h,0] := 1234
	var_Items:[CellState,h,0] := 1
	h := var_Items:AddItem("Radio 3")
	var_Items:[CellHasRadioButton,h,0] := true
	var_Items:[CellRadioGroup,h,0] := 1234
1553
The Column.Alignment property does not seem to work for cells with images in them. What can be done
local var_Column as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:TreeColumnIndex := -1
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:HeaderHeight := 24
oDCOCX_Exontrol1:DefaultItemHeight := 24
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Image")}
	var_Column:AllowSizing := false
	var_Column:Width := 32
	var_Column:HTMLCaption := "<img>1</img>"
	var_Column:HeaderAlignment := CenterAlignment
	var_Column:Alignment := CenterAlignment
	var_Column:[Def,exCellValueFormat] := 1
oDCOCX_Exontrol1:Columns:Add("Rest")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("<img>1</img>")
	var_Items:AddItem("<img>2</img>")
	var_Items:AddItem("<img>3</img>")
oDCOCX_Exontrol1:EndUpdate()
1552
Is there any way to determine in a bar would overlay another bar or to not allow this and get some error indication

METHOD OCX_Exontrol1BarResize(Item,Key) CLASS MainDialog
	// BarResize event - Occurs when a bar is moved or resized.
	oDCOCX_Exontrol1:Refresh()
RETURN NIL

local var_Bar,var_Bar1 as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 22
oDCOCX_Exontrol1:Columns:Add("InterectBars")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 48
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Bar := var_Chart:Bars:[Item,"Task"]
		var_Bar:OverlaidType := exOverlaidBarsIntersect
		var_Bar:[Overlaid,exOverlaidBarsIntersect] := "ERROR"
	var_Bar1 := var_Chart:Bars:Add("ERROR")
		var_Bar1:Color := RGB(255,0,0)
		var_Bar1:Pattern := exPatternSolid
		var_Bar1:Height := 7
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"A","A")
	var_Items:AddBar(h,"Task",SToD("20010103"),SToD("20010105"),"B","B")
	var_Items:[CellValue,h,0] := var_Items:[IntersectBars,h,"A",h,"B"]
	h := var_Items:AddItem("")
	var_Items:AddBar(h,"Task",SToD("20010106"),SToD("20010109"),"A","A")
	var_Items:AddBar(h,"Task",SToD("20010110"),SToD("20010113"),"B","B")
	var_Items:[CellValue,h,0] := var_Items:[IntersectBars,h,"A",h,"B"]
	h := var_Items:AddItem("")
	var_Items:AddBar(h,"Task",SToD("20010106"),SToD("20010109"),"B","B")
	var_Items:AddBar(h,"Task",SToD("20010110"),SToD("20010113"),"A","A")
	var_Items:[CellValue,h,0] := var_Items:[IntersectBars,h,"A",h,"B"]
oDCOCX_Exontrol1:EndUpdate()
1551
Is it possible to change the font size of the header compared to that of the control. I would like to make the font of the headers smaller
local var_Column as IColumn
local var_Columns as IColumns
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderHeight := 32
var_Columns := oDCOCX_Exontrol1:Columns
	var_Column := IColumn{var_Columns:Add("ID")}
		var_Column:HTMLCaption := "<font ;16>ID"
		var_Column:Width := 32
		var_Column:AllowSizing := false
	IColumn{var_Columns:Add("Task")}:HTMLCaption := "<font ;16>Task"
oDCOCX_Exontrol1:FocusColumnIndex := 1
oDCOCX_Exontrol1:ShowFocusRect := false
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[CellValue,var_Items:AddItem(1),1] := "Task A"
	var_Items:[CellValue,var_Items:AddItem(2),1] := "Task B"
oDCOCX_Exontrol1:EndUpdate()
1550
How can I create items and bars at runtime
local var_Chart as IChart
local var_Column as IColumn
local var_Columns as IColumns

oDCOCX_Exontrol1:BeginUpdate()
var_Columns := oDCOCX_Exontrol1:Columns
	var_Column := IColumn{var_Columns:Add("ID")}
		var_Column:FormatColumn := "1 index ''"
		var_Column:Width := 32
		var_Column:AllowSizing := false
	IColumn{var_Columns:Add("Task")}:Editor:EditType := EditType
oDCOCX_Exontrol1:FocusColumnIndex := 1
oDCOCX_Exontrol1:ShowFocusRect := false
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 128
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:AllowCreateBar := exCreateBarAuto
oDCOCX_Exontrol1:Template := "Chart.Bars(" + CHR(34) + "Task" + CHR(34) + "){Def(3) = " + CHR(34) + "<%=%C1%>" + CHR(34) + ";Def(4)=18}"
oDCOCX_Exontrol1:EndUpdate()
1549
How can I a group summary bar with a task bar, so when the summary bar changes the task bar will move accordingly

local var_Chart as IChart
local var_Items as IItems
local hSummary,hTask as USUAL

oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 128
	var_Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
	hSummary := var_Items:AddItem("Summary")
	var_Items:AddBar(hSummary,"Summary",SToD("20010102"),SToD("20010102"),nil,nil)
	hTask := var_Items:AddItem("Task A")
	var_Items:AddBar(hTask,"Task",SToD("20010102"),SToD("20010105"),nil,nil)
	var_Items:DefineSummaryBars(hSummary,"",hTask,"")
	hTask := var_Items:AddItem("Task B")
	var_Items:AddBar(hTask,"Task",SToD("20010104"),SToD("20010108"),nil,nil)
	var_Items:DefineSummaryBars(hSummary,"",hTask,"")
1548
How can I show the bars using a solid color, with no pattern inside

local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 24
oDCOCX_Exontrol1:DrawGridLines := exAllLines
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:DrawGridLines := exAllLines
	var_Chart:NonworkingDays := 0
	var_Chart:[PaneWidth,false] := 128
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:Bars:[Item,"Task"]:Pattern := exPatternSolid
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Solid A")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"A",nil)
	var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010107"),"B",nil)
	var_Items:[ItemBar,h,"B",exBarColor] := 255
	var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010110"),"C",nil)
	var_Items:[ItemBar,h,"C",exBarColor] := 65280
	h := var_Items:AddItem("Solid B")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"A",nil)
	var_Items:[ItemBar,h,"A",exBarBackColor] := 255
	var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010107"),"B",nil)
	var_Items:[ItemBar,h,"B",exBarColor] := 255
	var_Items:[ItemBar,h,"B",exBarBackColor] := 65280
	var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010110"),"C",nil)
	var_Items:[ItemBar,h,"C",exBarColor] := 16711680
	var_Items:[ItemBar,h,"C",exBarBackColor] := 16711935
oDCOCX_Exontrol1:EndUpdate()
1547
Basically what I am trying to do is replicate MS Project look & feel. Is that possible

local var_Appearance as IAppearance
local var_Chart as IChart

oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(1,"gBFLBCJwBAEHhEJAEGg4BNUMQAAYAQGKIYBkAKBQAGaAoDDMOQ4QwAAxDCKsEwsACEIrjKCRShyCYZRhGcTALD8EhhECTZKkAYQEiKLoaRzAcwyDAcQRFCKUJxhEYZai+NobSBQMZqBQgASIUCLZ5ACSYEigAovTULCKwJiWNZDUTRcTxCKQahLLivIhGUYKfgmY5lT5VUT1HS9IShJSmKTlORLOi+M4zUJLc4SVblGz7FyfYDBKygLqqFigLAxdDYTRNfzjHiTKbtGA7MADA4DVTAeC2bC+EYVTytY4sHQrIACZ5iWREMhXTi0E4rTa6dTxaS6KzKGqsZbsNAbHLdHTfVy1Mx1XaobqDJZdaTpdjaTDeJSjVjKdx4TZqSizjSGJOgcU4RhcIQDDURhIESXwEGgbQJBQQjeggQBiC4NJAluGJrAUB5Lmmc56n4Pp/i+NQjmqdQ5k2J5+AGAAgCgFgEgAHxQAGfoBmAOA2AaAxghgLgOgMIJ4AoER8mEWBSBoNohHKAgZgSYgIHYH4ImCB5OAqBghjiEgcgmIQoioD4IiKGJGCsUgUHiVirmOBQVAEgI=")
	var_Appearance:Add(39,"CP:1 -1 -1 0 0")
	var_Appearance:Add(40,"gBFLBCJwBAEHhEJAEGg4BEcMQAAYAQGKIYBkAKBQAGaAoDDMOQ4QwAAxDCKsEwsACEIrjKCRShyCYZRhGcTAFD8EhhECTZKkAZwEiKLoaRzAcwyDAcQRFCKUJxlKa5PjaLwAAbJMZKAqDDgBIijIqnKA5JoyKIkTzCIJxXScByDGqNaQoehYXhEMg1CTXVgRCKoYTDBKybLqGT6VoCP5vWJaURWHZFTTJOyNagmSJ6XACbQMW7gNYQGBEEigNIxToOU4jFDGIB2VAQRK5BDQbQSFCpIRCCRQYhcQJ6YIAD76HomS5NU7UNKhHSdMy3J6ra5sOqbBqWa5LWjbNq3DadSzvPKub5vexwHwWawSUDkOR5Li+M43S4JPS5bZdDxPiWVJrnWOw9F6XxTiGWpsHcO5+C6Xx7kOZpwHoOxeF8T4fkeYJgnEdZwOwQRBnSex9H6f4vk+c5xn4fZQhQBCAg==")
	var_Appearance:Add(41,"gBFLBCJwBAEHhEJAEGg4BQICg6AADACAxRDAMkOQAGaAoDDUMQyQwAAxDSK8EwsACEIrjKCRShyCYZRhGcTALBMIwKGABIRGUZJGDkOYgDCBEhTHDUOwHGyQYDkCQoRiYMAwTBQMaTXDdCQ1ECkJomObqAgkMZCTbKMySAA0NgPD6sKSjOIRSDUJZcV5EoAKfiqZIRSJSMZVLLVNSVJipAAlOTZPo6JJuTLOE4WVRcSydH6oAApeg6KoYAFzQAEDCbYgOTKBYLUOCwTZmDwTK6BcTtXDbejeYYcZ7DNj2NYtJ4TRCBcpzLLIXrCKg0TBPQ4YNC2DT5VDWIq1aDdQo7MpxWjlGI5Ri2c51UDSYi0G4tDyLSYWXDfFSQTrHDQXhAAghCUAxJgyaB1DkGRyDCKBhAiGwLg0DYhCKDI8CcVwIAwRotBeAYCCmBZ0nsfR+n+L5PlYE53BwTpzn4AIAiAGAOAMfZfmeVBwDuD54C4DYDCCaA6AgQJfHGPJtD+YRoGIF4GGGrAAH2RpjjCf4IGIOIKCSCQhmeXBtDqT54i4LYLCKaI6CkfRGlOKgtg2IxYl4OoMkwIYwmkP5jmkAg/hAZAYnAaw6A+eQeEmEgkikKg8BqDkYFCFIlBkThTg8BoThif4WGWORqFyFwjkGIJlD+ZgphIY4ZGYWYEmSGQmjGIhthvMpwGcOJPnmTh1h0JxploPAZg4I5+HyH4nlmfh/g8BhTgSf4hGgegagiIlShCYA/miahCg+JBpUIYw3k+ehehmJgpioaoWDeKYagAY4oioSZFn2BQfFGCJdD+aoqjKK4rGqWJwGENwPnqTo1i1gtiBgDYzn6PIviuWp+j+DwFnMaJ/jEbB7BqSIyCOQR4lkP5smsQpPjQbQbDSWI0C0cR6lmNpqGMCgJDCBZTFyf44G4O4KmSOWTnCVg/m6K4ymuOxu4OWw1E+e5OnWPQvGvYgWg0Q5+nyP4vlvE+OBMTJ/kEcB8BsCJCDATArA6QhxAgeIgkScRMFcFpFlCFAEICA")
	var_Appearance:Add(42,"gBFLBCJwBAEHhEJAEGg4BY8MQAAYAQGKIYBkAKBQAGaAoDDMOQ4QwAAwjQLMEwsACEIrjKCRShyCYZRhGcTALD8EhhECTZKkAYgEiKLoaRzAcwyDAcQRFCKUJxhEY5ai+NobRCAUiwHQUBr/I4AKLfeJ5dACKYNShRMrSABMNgZBKpJAqKiqJoiFoRDINIi2BYUIhqGCxYRseyZegmEYWVTREr3HKsVTtAanjZSJakXxnGaQJ7jKaLXo6II8YTIWBABaIAQiBahQArOiKchaTZ5YheFRYVBOG4bK6BcguW4qGxSXpuRxZOo2YAFVzNNC3YzkCIcegnIp9ZxeFK5Tg1Z4XKTaNwqPBcYpHPqdVhCOgYZwUb5XMjWNatLYIboziiUhzCAeJeG6ZAAAiBIUA0JgziGVJkGUGJIBgUYSBEN5VBoGxCEUHItjSFAxBcRhim4dIqFGTB+BUfxfneegAgCYAoBQFR+lQeASAEBRIGESAogMYJ4DoEIEmCaAqAoJoGGCbgYgaIYYG4HoHGICByCKAoKmGZBOgkYh4hoKIKmKKI2CmC5giMBINBgY0AjODRjgiXg6g2I8glUKAHEifhBhAJApBYRIRmQOQmAoOgLBIEhMhOJJZD4UoUGUSRCFaAoOHKPIAhYZY5GoXIXmWaYGF2GJlgKMB9DmZhpiIZ4aGaSYuG6GomigWgGDmCohmYdIdicWZeHqHRnCgHgIh8aAIBoCA/lAECAg")
oDCOCX_Exontrol1:Appearance := 0x28000000 | 
oDCOCX_Exontrol1:BackColor := RGB(255,255,255)
oDCOCX_Exontrol1:BackColorLevelHeader := RGB(255,255,255)
oDCOCX_Exontrol1:BackColorHeader := 0x27000000
oDCOCX_Exontrol1:SelBackColor := RGB(0,0,0)
oDCOCX_Exontrol1:SelForeColor := RGB(255,255,255)
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:BackColorLevelHeader := 0x27000000
	var_Chart:BackColor := RGB(255,255,255)
	var_Chart:Bars:[Item,"Task"]:Color := 0x2a000000
oDCOCX_Exontrol1:FilterBarBackColor := 0x1000000
oDCOCX_Exontrol1:[Background,exCursorHoverColumn] := 0x29000000
oDCOCX_Exontrol1:[Background,exToolTipAppearance] := 0x1000000
oDCOCX_Exontrol1:[Background,exSplitBar] := 0x1000000
oDCOCX_Exontrol1:EndUpdate()
1546
Is there anyway to change the style of the splitter which separates the list/chart

oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:[Background,exHeaderFilterBarButton] := 0x1000000
oDCOCX_Exontrol1:[Background,exSplitBar] := 0x1ff0000
1545
Does your control support subscript or superscript, in HTML captions

local var_Chart as IChart
local var_Items as IItems
local h as USUAL

var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:[PaneWidth,false] := 64
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Item 1")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"",nil)
	var_Items:[ItemBar,h,"",exBarCaption] := "<sha ;;0>Event <b><font ;6><off -6>2<off 4>3<off 4>1"
	var_Items:[ItemBar,h,"",exBarHAlignCaption] := 18
1544
I have noticed that the column's header is changed once the cursor hovers it. Is it possible to change that visual appearance

local var_Columns as IColumns

oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Column 1")
	var_Columns:Add("Column 2")
oDCOCX_Exontrol1:BackColorHeader := 0x1000000
oDCOCX_Exontrol1:[Background,exCursorHoverColumn] := 0x12d86ff
1543
Is it possible to change the visual appearance of the columns selector/floating bar(3)

local var_Columns as IColumns

oDCOCX_Exontrol1:ColumnAutoResize := false
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Column 1")
	IColumn{var_Columns:Add("Column 2")}:Visible := false
oDCOCX_Exontrol1:VisualAppearance:Add(2,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:VisualAppearance:Add(3,"c:\exontrol\images\pushed.ebn")
oDCOCX_Exontrol1:[Background,exColumnsFloatAppearance] := 0x2000000
oDCOCX_Exontrol1:[Background,exColumnsFloatBackColor] := 0x3000000
oDCOCX_Exontrol1:[Background,exColumnsFloatCaptionBackColor] := RGB(246,245,240)
oDCOCX_Exontrol1:ColumnsFloatBarVisible := exColumnsFloatBarVisibleIncludeHiddenColumns
1542
Is it possible to change the visual appearance of the columns selector/floating bar(2)

local var_Columns as IColumns

oDCOCX_Exontrol1:ColumnAutoResize := false
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Column 1")
	IColumn{var_Columns:Add("Column 2")}:Visible := false
oDCOCX_Exontrol1:VisualAppearance:Add(3,"c:\exontrol\images\pushed.ebn")
oDCOCX_Exontrol1:[Background,exColumnsFloatBackColor] := 0x3000000
oDCOCX_Exontrol1:ColumnsFloatBarVisible := exColumnsFloatBarVisibleIncludeHiddenColumns
1541
Is it possible to change the visual appearance of the columns selector/floating bar(1)


oDCOCX_Exontrol1:VisualAppearance:Add(2,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:[Background,exColumnsFloatAppearance] := 0x2000000
oDCOCX_Exontrol1:[Background,exColumnsFloatBackColor] := RGB(246,245,240)
oDCOCX_Exontrol1:[Background,exColumnsFloatCaptionBackColor] := RGB(246,245,240)
oDCOCX_Exontrol1:ColumnsFloatBarVisible := exColumnsFloatBarVisibleIncludeHiddenColumns
1540
I am using the ColumnsFloatBarVisible property on True, but still not able to add any column on that list
local var_Columns as IColumns

oDCOCX_Exontrol1:ColumnAutoResize := false
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Column 1")
	IColumn{var_Columns:Add("Column 2")}:Visible := false
oDCOCX_Exontrol1:ColumnsFloatBarVisible := exColumnsFloatBarVisibleIncludeHiddenColumns
1539
Is it possible to list a column to columns selector/floating bar, but still user can use it

local var_Column as IColumn
local var_Columns as IColumns

oDCOCX_Exontrol1:ColumnAutoResize := false
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Column 1")
	IColumn{var_Columns:Add("Column 2")}:Visible := false
	var_Column := IColumn{var_Columns:Add("Column 3")}
		var_Column:Visible := false
		var_Column:Enabled := false
oDCOCX_Exontrol1:ColumnsFloatBarVisible := exColumnsFloatBarVisibleIncludeHiddenColumns
1538
How can I prevent a specific column not to be listed in the columns selector/floating bar
local var_Column as IColumn
local var_Columns as IColumns

oDCOCX_Exontrol1:ColumnAutoResize := false
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Column 1")
	IColumn{var_Columns:Add("Column 2")}:Visible := false
	var_Column := IColumn{var_Columns:Add("Column 3")}
		var_Column:Visible := false
		var_Column:AllowDragging := false
oDCOCX_Exontrol1:ColumnsFloatBarVisible := exColumnsFloatBarVisibleIncludeHiddenColumns
1537
Is it possible to change the "Columns" caption being shown in the columns selector/floating bar
local var_Columns as IColumns

oDCOCX_Exontrol1:ColumnAutoResize := false
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Column 1")
	IColumn{var_Columns:Add("Column 2")}:Visible := false
oDCOCX_Exontrol1:[Description,exColumnsFloatBar] := "Hidden Columns"
oDCOCX_Exontrol1:ColumnsFloatBarVisible := exColumnsFloatBarVisibleIncludeHiddenColumns
1536
How can I show the columns selector, so the user can drag and drop columns to the view
local var_Columns as IColumns

oDCOCX_Exontrol1:ColumnAutoResize := false
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Column 1")
	IColumn{var_Columns:Add("Column 2")}:Visible := false
oDCOCX_Exontrol1:ColumnsFloatBarVisible := exColumnsFloatBarVisibleIncludeHiddenColumns
1535
The column's header is changed while the cursor hovers it. Is it possible to prevent that
local var_Columns as IColumns

var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Column 1")
	var_Columns:Add("Column 2")
oDCOCX_Exontrol1:[Background,exCursorHoverColumn] := -1
1534
Is there any property I can save and restore automatically the current setting, column position, size, and so on (2)
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Item 1")
	var_Items:AddItem("Item 2")
	var_Items:AddItem("Item 3")
oDCOCX_Exontrol1:Layout := "Select=" + CHR(34) + "0" + CHR(34) + ";SingleSort=" + CHR(34) + "C0:2" + CHR(34) + ";Columns=1"
oDCOCX_Exontrol1:EndUpdate()
1533
Is there any property I can save and restore automatically the current setting, column position, size, and so on (1)
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Item 1")
	var_Items:AddItem("Item 2")
	var_Items:AddItem("Item 3")
oDCOCX_Exontrol1:Layout := "gBjAAwAAuABmABpABsAB0ABlAByhoAPIAOEPAA9gYABoABQAgUEg0XN4AOcJicKkpujMbjsfkMFk0YhkQgUOjUEl8gjcGO0ok8KMULjEaGMcj08kQAO8oMkTNEtGwAGQAqc7gUlhh1ABtAEsk9GpEfhElgVcsMupNlnlonlaAFcr0shUsp8QPEtnVJqJhmcIhUMh0QiU5sYAqMngUSuEMw07k8Qv0SgVRrNEuVflF2jF5x9JyNEm0TjQijemyE0jE3t+YruauoAu4Az1qj9BzRn0UzksSnAA0xDjY6qnAw8OiUQ0dwzN0zWz2t7j8/xURAGNvWH6k8xlEhklhEI0O/6QAgI="
oDCOCX_Exontrol1:EndUpdate()
1532
How do I arrange my columns on multiple levels

local var_Column,var_Column1,var_Column2 as IColumn
local var_Columns as IColumns

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := false
oDCOCX_Exontrol1:DrawGridLines := exAllLines
var_Columns := oDCOCX_Exontrol1:Columns
	var_Column := IColumn{var_Columns:Add("C0")}
		var_Column:ExpandColumns := "1,2"
		var_Column:DisplayExpandButton := false
	var_Columns:Add("C1")
	var_Columns:Add("C2")
	var_Columns:Add("C3")
	var_Column1 := IColumn{var_Columns:Add("C4")}
		var_Column1:ExpandColumns := "5,6"
		var_Column1:DisplayExpandButton := false
	var_Columns:Add("C5")
	var_Column2 := IColumn{var_Columns:Add("C6")}
		var_Column2:ExpandColumns := "6,7"
		var_Column2:DisplayExpandButton := false
	var_Columns:Add("C7")
oDCOCX_Exontrol1:EndUpdate()
1531
Does your control support expandable header or columns, so I can arrange it on multiple levels

local var_Column,var_Column1 as IColumn
local var_Columns as IColumns

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:BackColorLevelHeader := RGB(240,240,240)
var_Columns := oDCOCX_Exontrol1:Columns
	var_Column := IColumn{var_Columns:Add("Photo")}
		var_Column:AllowSizing := false
		var_Column:Width := 32
	var_Columns:Add("Personal Info")
	var_Columns:Add("Title")
	var_Columns:Add("Name")
	var_Columns:Add("First")
	var_Columns:Add("Last")
	var_Columns:Add("Address")
	var_Columns:[Item,"Personal Info"]:ExpandColumns := "2,3"
	var_Column1 := var_Columns:[Item,"Name"]
		var_Column1:ExpandColumns := "4,5"
		var_Column1:Expanded := false
oDCOCX_Exontrol1:EndUpdate()
1530
I need a Day/Hour Display where the Bars should be created/resized in a 15 Minute Scale in a normal View, but in a 5 Minute Scale when on an InsideZoom. How can I do that
local var_Chart as IChart
local var_InsideZoomFormat as IInsideZoomFormat
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 128
	var_Chart:AllowCreateBar := exCreateBarAuto
	var_Chart:UnitWidth := 50
	var_Chart:FirstVisibleDate := SToD("20130101")
	var_Chart:LevelCount := 2
	var_Chart:[Level,0]:Label := 4096
	var_Chart:[Level,1]:Label := "<%h%>:<%nn%>"
	var_Chart:[Level,1]:Unit := exMinute
	var_Chart:[Level,1]:Count := 60
	var_Chart:ResizeUnitScale := exMinute
	var_Chart:ResizeUnitCount := 15
	var_Chart:AllowInsideZoom := true
	var_InsideZoomFormat := var_Chart:DefaultInsideZoomFormat
		var_InsideZoomFormat:InsideCount := 5
		var_InsideZoomFormat:InsideUnit := exMinute
		var_InsideZoomFormat:InsideLabel := "<%nn%>"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Item")
oDCOCX_Exontrol1:EndUpdate()
1529
Can I change the format of date to be shown in the control
local var_Column,var_Column1,var_Column2 as IColumn
local var_Columns as IColumns
local var_Items as IItems

oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Default")
	var_Column := IColumn{var_Columns:Add("Format.1")}
		var_Column:ComputedField := "%0"
		var_Column:FormatColumn := "dateF(value) replace `/` with `-`"
	var_Column1 := IColumn{var_Columns:Add("Format.2")}
		var_Column1:ComputedField := "%0"
		var_Column1:[Def,exCellValueFormat] := 1
		var_Column1:FormatColumn := "`<b>`+ shortdate(value) + `</b> ` + timeF(value)"
	var_Column2 := IColumn{var_Columns:Add("Format.3")}
		var_Column2:ComputedField := "%0"
		var_Column2:[Def,exCellValueFormat] := 1
		var_Column2:FormatColumn := "` <b>`+ ( weekday(value) case ( 0 : `Su`; 1 : `Mo`; 2 : `Tu`; 3 : `We`; 4 : `Th`; 5 : `Fr`; 6 : `Sa`) ) + `</b> ` + ( dateF(value) replace `/` with `-` )"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem(SToD("20010101 10:00:00"))
	var_Items:AddItem(SToD("20010102 10:00:00"))
1528
How can I display a text/caption on the chart part of the control

local var_Chart as IChart
local var_Items as IItems
local var_Note,var_Note1,var_Note2 as INote
local var_Notes as INotes
local h1 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AntiAliasing := true
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20001226")
	var_Chart:[PaneWidth,false] := 128
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Item 1")
	var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"A",nil)
	var_Items:[ItemBar,h1,"A",exBarCaption] := "text"
	h1 := var_Items:AddItem("Item 2")
	var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"A",nil)
	var_Items:[ItemBar,h1,"A",exBarCaption] := "text outside associated with a bar"
	var_Items:[ItemBar,h1,"A",exBarHAlignCaption] := 18
	h1 := var_Items:AddItem("Item 3")
	var_Items:AddBar(h1,"",SToD("20010102"),SToD("20010102"),"A",nil)
	var_Items:[ItemBar,h1,"A",exBarCaption] := "text with no bar associated"
	h1 := var_Items:AddItem("Item 4")
	var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010105"),"A",nil)
	h1 := var_Items:AddItem("Item 5")
	h1 := var_Items:AddItem("Item 6")
	h1 := var_Items:AddItem("Item 7")
	h1 := var_Items:AddItem("Item 8")
	var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"A",nil)
	h1 := var_Items:AddItem("Item 8")
	var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010106"),"A",nil)
var_Notes := oDCOCX_Exontrol1:Chart:Notes
	var_Notes:Add("1S",oDCOCX_Exontrol1:Items:[ItemByIndex,3],"A","<font ;6>Movable Note Inside the Bar"):[PartCanMove,exNoteStart] := true
	var_Notes:Add("AK",oDCOCX_Exontrol1:Items:[ItemByIndex,6],SToD("20010106"),"Note associated with a date: <%mm%>/<%dd%>/<%yyyy%>")
	var_Note := var_Notes:Add("2S",oDCOCX_Exontrol1:Items:[ItemByIndex,7],"A","<font ;6>Fixed Note Left")
		var_Note:ShowLink := exNoteLinkHidden
		var_Note:[PartVOffset,exNoteEnd] := 0
		var_Note:[PartHOffset,exNoteStart] := -32
		var_Note:[PartShadow,exNoteEnd] := false
		var_Note:[PartBackColor,exNoteEnd] := RGB(255,255,0)
	var_Note1 := var_Notes:Add("3S",oDCOCX_Exontrol1:Items:[ItemByIndex,8],"A","Start<br><%mmm%> <%d%> <%yyyy%>")
		var_Note1:[PartCanMove,exNoteEnd] := true
		var_Note1:[PartHOffset,exNoteEnd] := -64
		var_Note1:LinkStyle := exLinkDot
		var_Note1:LinkWidth := 2
		var_Note1:LinkColor := RGB(0,0,255)
	var_Note2 := var_Notes:Add("3F",oDCOCX_Exontrol1:Items:[ItemByIndex,8],"A","End<br><%mmm%> <%d%> <%yyyy%>")
		var_Note2:RelativePosition := 1
		var_Note2:[PartCanMove,exNoteEnd] := true
		var_Note2:LinkStyle := exLinkDot
		var_Note2:LinkWidth := 2
		var_Note2:LinkColor := RGB(0,0,255)
oDCOCX_Exontrol1:EndUpdate()
1527
Which is the best way of change Bar parent
local var_Items as IItems
local h1,h2,h3 as USUAL

oDCOCX_Exontrol1:Debug := true
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Item 1")
	var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"A",nil)
	h2 := var_Items:AddItem("Item 2")
	var_Items:AddBar(h2,"Task",SToD("20010103"),SToD("20010105"),"B",nil)
	h3 := var_Items:AddItem("Item 3")
	var_Items:AddBar(h3,"Task",SToD("20010105"),SToD("20010107"),"A",nil)
	var_Items:[ItemBar,h3,"A",exBarParent] := h1
	OutputDebugString(String2Psz( "The Bar A of H3 fails to change the parent to H1 as it has already a bar named A" ))
	var_Items:[ItemBar,h3,"A",exBarParent] := h2
	OutputDebugString(String2Psz( "The Bar A of H3 can be moved to H2, as it contains no bars with the key A" ))
1526
Is it possible to have a bar in bar

local var_Appearance as IAppearance
local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(1,"gBFLBCJwBAEHhEJAEGg4BS4Dg6AADACAxRDAMgBQKAAzQFAYbBmGaGAAGIZhQgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDKAkRRdDSOYDmGQYDiCIoRShOMIjRLUXxtDYEIRkSZYJAKCTtBwJAAURRULR6ACUYDnSRqGj6CQKRqEVBSLAdKyXJKvaZhGIRSDUJZkWZEIyjBY8EzXNqrIDoGKqYgOQ4XV5TFgxPR9IyhEAaLrleT5TjOII/RpOEpYXSVHxFRAAAYhG4wABCXAAXjYF5Udhlfx3FCvMbqeCcSgOWoDZZRFa0PjVQQtNC4IitGzrMqrNaDSBlGigBauKw3TKlMzye7repOA5+aJGVz7VgfGz7EDjKg0GJcgMex3lOZB5jgPYHHMaYxjeRBilWbZNG4B49l2do6hkfIhECUhjDoHROEYUYMgEbQMCEEx+lGIY0CQUQJHYGoUgQGBFkgB4FmkOINiMbBrAwQoxngSQMCCYJAG8DYCkMZJNDOAhAHCbYGGGOBqByB5hiMcJSDORhwjQKoEkKSIgHoEZEDgWJOECSwyGSGwjkWUJUh8HADiiXA6CSRgQliFwcgcSICB2EJkCKDIAB4CAxDgMoOiOIkfA4CoiDCDhAmUEg4hEF4DHKCByA8JYpHIWwbAMIIuC6EIkCiOBwA2QpSHQbgOkoIZMD2GxmnmOhVhUJQiEwYAOAoQZQD6HhnjmaIfBuQ5BlQPQLiMEhuEKIRHmEKA7h+Q5ChQdQPmiahCg+JBnDAAhVCVPpoicHYEAobodicKZqHqGAO0YNA0ikQxKg6IYnAqAZcEGKxqnqOowiUZRSFwYwPAqIZkEOLhrjqaIqB4BAqn6QYwCwKwWkSMZECKLo6jKBA7DKTItWEZBlA8SpRmwRY1G0exYi0HoEEsbpdjcLZrgaYI4kQQo6laOYEFuIpojQCJiHAZgPksAZ0EePBvDuSp0j2bxrmadY+m8QpGnKP4EHwAwAjsCZxiQQQtAgAQrAiQowhKUB/BIcJsEMD5EHETBPBYEhLFwJwZBKMY8G6bAoEaIQMjcIIEkzUZJAscgEEuShyjyKwskucpskQSwuDITJQEyTYzGuMIjBsBBCmiBATjObQDD+UB0E0DxGlCNINASO5PnSMQ7E2Uxu3CbQRguUgYFCVR1H0WxYC2R5xDSDgVWiXA8AyNggksXwPDWQQ3FgL4IHERxsluNpdj6bAqAacQckAEQBQWxfDzF4BUYYqBKhEEQNMDgPQGhFGIDgVwKR3iiCiIIIgig+BfA2MYOLtAqA4ESCYDIFgVDyGEKkPAQgFBDDwG4DYnQzg5GiDIOAZw3hCDoA8MQIA9PeGEHkRIyx6jiOMEoTAxRMhoCeIwUQKSbCKH6NgV43AECyFeEkEQdBTAxC0FESQYhgB+DGPcTwYBXBZEeCIOoKg5j6EIJAbQNxJCjCAMAJwDRxghA4DEBYpk1hnHwH4DIxg3AaFGGgMQFwHhBHgGkewhhCDIHMDkDY0AlAGEAIAgIA=")
	var_Appearance:Add(2,"c:\exontrol\images\normal.ebn")
	var_Appearance:Add(3,"CP:2 2 -4 2 4")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 256
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Columns:Add("Info")
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Range Moveable Frame")
	var_Items:AddBar(h,"Task",SToD("20010104"),SToD("20010108"),"F",nil)
	var_Items:[ItemBar,h,"F",exBarToolTip] := "This bar can be moved inside the displayed range."
	var_Items:[ItemBar,h,"F",exBarMinStart] := SToD("20010102")
	var_Items:[ItemBar,h,"F",exBarMaxEnd] := SToD("20010118")
	var_Items:[ItemBar,h,"F",exBarShowRange] := 32
	var_Items:[ItemBar,h,"F",exBarShowRangeTransparent] := 90
	h := var_Items:AddItem("Range Moveable Pattern")
	var_Items:AddBar(h,"Task",SToD("20010106"),SToD("20010110"),"F",nil)
	var_Items:[ItemBar,h,"F",exBarToolTip] := "This bar can be moved inside the displayed range."
	var_Items:[ItemBar,h,"F",exBarMinStart] := SToD("20010102")
	var_Items:[ItemBar,h,"F",exBarMaxEnd] := SToD("20010118")
	var_Items:[ItemBar,h,"F",exBarShowRange] := 1
	var_Items:[ItemBar,h,"F",exBarShowRangeTransparent] := 90
	h := var_Items:AddItem("Range Moveable EBN Transparent")
	var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010112"),"F",nil)
	var_Items:[ItemBar,h,"F",exBarToolTip] := "This bar can be moved inside the displayed range."
	var_Items:[ItemBar,h,"F",exBarMinStart] := SToD("20010102")
	var_Items:[ItemBar,h,"F",exBarMaxEnd] := SToD("20010118")
	var_Items:[ItemBar,h,"F",exBarShowRange] := 16777216
	var_Items:[ItemBar,h,"F",exBarShowRangeTransparent] := 50
	h := var_Items:AddItem("Range Moveable EBN Opaque 1")
	var_Items:[ItemHeight,h] := 24
	var_Items:AddBar(h,"Task",SToD("20010110"),SToD("20010114"),"F",nil)
	var_Items:[ItemBar,h,"F",exBarToolTip] := "This bar can be moved inside the displayed range."
	var_Items:[ItemBar,h,"F",exBarMinStart] := SToD("20010102")
	var_Items:[ItemBar,h,"F",exBarMaxEnd] := SToD("20010118")
	var_Items:[ItemBar,h,"F",exBarShowRange] := 33554432
	h := var_Items:AddItem("Range Moveable EBN Opaque 2")
	var_Items:[ItemHeight,h] := 24
	var_Items:AddBar(h,"Task",SToD("20010112"),SToD("20010116"),"F",nil)
	var_Items:[ItemBar,h,"F",exBarToolTip] := "This bar can be moved inside the displayed range."
	var_Items:[ItemBar,h,"F",exBarMinStart] := SToD("20010102")
	var_Items:[ItemBar,h,"F",exBarMaxEnd] := SToD("20010118")
	var_Items:[ItemBar,h,"F",exBarShowRange] := 50331648
oDCOCX_Exontrol1:EndUpdate()
1525
How can I show vertical lines using the SelectDate

local var_Appearance as IAppearance
local var_Chart as IChart

oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(1,"gBFLBCJwBAEHhEJAEGg4BK8IQAAYAQGKIYBkAKBQAGaAoDDYMwzQwAAxDMKEEwsACEIrjKCRShyCYZRhGcTAFD8EhhECTY4lCQJAiKLoeQLHMBybJ8LwiGQaRJmeaYRDUMI6QjPVARVIkaxhCSSaKpIAIBEB")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 0
	var_Chart:FirstVisibleDate := SToD("20080101")
	var_Chart:MarkTodayColor := var_Chart:BackColor
	var_Chart:LevelCount := 2
	var_Chart:AllowSelectDate := exNoSelectDate
	var_Chart:MarkSelectDateColor := 0x1000000
	var_Chart:SelectLevel := 1
	var_Chart:[SelectDate,SToD("20080115")] := true
	var_Chart:[SelectDate,SToD("20080118")] := true
oDCOCX_Exontrol1:EndUpdate()
1524
How can I show vertical lines using the SelectDate

local var_Chart as IChart

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 0
	var_Chart:FirstVisibleDate := SToD("20080101")
	var_Chart:MarkTodayColor := var_Chart:BackColor
	var_Chart:LevelCount := 2
	var_Chart:AllowSelectDate := exNoSelectDate
	var_Chart:MarkSelectDateColor := 0x7fff0000
	var_Chart:SelectLevel := 1
	var_Chart:[SelectDate,SToD("20080115")] := true
	var_Chart:[SelectDate,SToD("20080118")] := true
oDCOCX_Exontrol1:EndUpdate()
1523
How can I find if there is any filter applied to the control
METHOD OCX_Exontrol1FilterChange() CLASS MainDialog
	// FilterChange event - Occurs when the filter was changed.
	OutputDebugString(String2Psz( "If negative, the filter is present, else not" ))
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Items:VisibleItemCount) ))
RETURN NIL

local var_Column as IColumn
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:TreeColumnIndex := -1
oDCOCX_Exontrol1:FilterInclude := exMatchingItemsOnly
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}
	var_Column:DisplayFilterButton := true
	var_Column:FilterType := exFilter
	var_Column:Filter := "C1"
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("R1")
	var_Items:InsertItem(h,nil,"C1")
	var_Items:InsertItem(h,nil,"C2")
	var_Items:[ExpandItem,h] := true
	h := var_Items:AddItem("R2")
	var_Items:InsertItem(h,nil,"C1")
	var_Items:InsertItem(h,nil,"C2")
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
1522
How can I prevent showing the lines for the hierarchy while using the exMatchingItemsOnly option
local var_Column as IColumn
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:TreeColumnIndex := -1
oDCOCX_Exontrol1:FilterInclude := exMatchingItemsOnly
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}
	var_Column:DisplayFilterButton := true
	var_Column:FilterType := exFilter
	var_Column:Filter := "C1|C2"
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("R1")
	var_Items:InsertItem(h,nil,"C1")
	var_Items:InsertItem(h,nil,"C2")
	var_Items:[ExpandItem,h] := true
	h := var_Items:AddItem("R2")
	var_Items:InsertItem(h,nil,"C1")
	var_Items:InsertItem(h,nil,"C2")
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
1521
Is there any method to get only the matched items and not the items with his parent
local var_Column as IColumn
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:FilterInclude := exMatchingItemsOnly
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}
	var_Column:DisplayFilterButton := true
	var_Column:FilterType := exFilter
	var_Column:Filter := "C1|C2"
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("R1")
	var_Items:InsertItem(h,nil,"C1")
	var_Items:InsertItem(h,nil,"C2")
	var_Items:[ExpandItem,h] := true
	h := var_Items:AddItem("R2")
	var_Items:InsertItem(h,nil,"C1")
	var_Items:InsertItem(h,nil,"C2")
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
1520
Is it possible to specify a working day exception that would override the non-working day pattern
local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Pattern")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstWeekDay := exMonday
	var_Chart:FirstVisibleDate := SToD("20080124")
	var_Chart:[PaneWidth,false] := 52
	var_Chart:LevelCount := 2
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Default")
	var_Items:[ItemNonworkingUnits,var_Items:AddItem("1/26/2008"),false] := "weekday(value) case (default:0 ; 0:1; 6:(value != #1/26/2008#))"
	var_Items:[ItemNonworkingUnits,var_Items:AddItem("1/27/2008"),false] := "weekday(value) case (default:0 ; 0:(value != #1/27/2008#); 6:1)"
	var_Items:[ItemNonworkingUnits,var_Items:AddItem("Sundays"),false] := "weekday(value) = 0"
oDCOCX_Exontrol1:EndUpdate()
1519
How do I enable the scrollbar-extension, as thumb to be shown outside of the control's client area

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ScrollBars := exDisableBoth
oDCOCX_Exontrol1:Chart:ToolTip := ""
oDCOCX_Exontrol1:[ScrollPartVisible,exVScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:[ScrollPartVisible,exHScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:[ScrollPartVisible,exHChartScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:ScrollWidth := 4
oDCOCX_Exontrol1:[Background,exVSBack] := RGB(240,240,240)
oDCOCX_Exontrol1:[Background,exVSThumb] := RGB(128,128,128)
oDCOCX_Exontrol1:ScrollHeight := 4
oDCOCX_Exontrol1:[Background,exHSBack] := oDCOCX_Exontrol1:[Background,exVSBack]
oDCOCX_Exontrol1:[Background,exHSThumb] := oDCOCX_Exontrol1:[Background,exVSThumb]
oDCOCX_Exontrol1:[Background,exScrollSizeGrip] := oDCOCX_Exontrol1:[Background,exVSBack]
oDCOCX_Exontrol1:EndUpdate()
1518
Is it possible to associate an extra frame, border, EBN to the bar/task

local var_Appearance as IAppearance
local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(1,"gBFLBCJwBAEHhEJAEGg4BNACg6AADACAxRDAMgBQKAAzQFAYbhsGCGAAGEZBQgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDEAkRRdDSOYDmGQYDiCIoRShOMaTVJ8bQ2ASEaAmWK3boUAJFPrFc6ABJMZRRISXJABeKwRoGJYaUhRdDRNCIZBqEqua7iEZRQqCCZkWZPNTRVScByhF61IDpWjKLDKJJwXBMcxyBL0NRxFTAKawGoYbq0AJQVTQcZPVhgAYYfSlMDuOB5Gq+G5SQjhWIgBjde4dRrHYrsGyQAp7JJoWLZMQyFIFIYNTS8LgpPI6LyyP5rABhWw5PiUVyfWTMdwzPatbyKHJicbpepWPxcNYtNzcNb3SAbn+KgAmqP5yDiIAACIEhQDSGJOgcU4RhQYwgFUQwIESXxEGgbQJBQQhzHmUAAGILh0lWbpEGIIQQHuegaAaoRYBUBYBCgFAOAOQJgC4CgCCCQAUAQARACgRZFEa3ogCcCICDCDZ9AeH5wGgFoHmAUBIA6CJgiALgMAIABYiYER+BuMIyC4CZjAcYgygyYxIlYNoNBGMJGDoCximiXg+g+Yx0G0DgNiOIJGECEZkgQbA7A8A5JA4SITmOZBsEGFJDkkLhQhXOItBYEZEGEHBCBARApGIYh1EAaIoAMQIEkENBNBGZpJg4YgCGcAAaGUAAFCmVhqBMZppGADQDACQAmAwAAFgoBh1BSJ4ZFwEEdHmcFmgWag2gEFhoFlINYkoHAQAABhKGQX4jGkGQ8BiJ5BDqBAABqKl1GSJxkgAcoqAYAR3lQcIrkaOoSiiEZCBCBAgiqAaJHaLpHBqQoliaBZxHwWYwkUQRMFQExEmENBJBIRIBAgQwQkOYJ0D4DhDgCYAzjWQpgjwLgKi2QIWl4CACADeofC4SpsHcHArlqRBqBkbpLAaQoxAUQRQE6PLoCaT40AOYJ6lWNdXlAL4/m2QIql4CRAAQBCAg=")
	var_Appearance:Add(2,"CP:1 -4 -4 4 4")
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:DrawGridLines := exAllLines
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:[PaneWidth,false] := 128
	var_Chart:DrawGridLines := exAllLines
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task"),"Task",SToD("20010102"),SToD("20010105"),"K1",nil)
	h := var_Items:AddItem("Task/ EBN Frame")
	var_Items:[ItemHeight,h] := 32
	var_Items:AddBar(h,"Task",SToD("20010103"),SToD("20010115"),"K2",nil)
	var_Items:[ItemBar,h,"K2",exBarFrameColor] := 33554432
	h := var_Items:AddItem("Task/ EBN Frame")
	var_Items:[ItemHeight,h] := 32
	var_Items:AddBar(h,"Task",SToD("20010103"),SToD("20010115"),"K2",nil)
	var_Items:[ItemBar,h,"K2",exBarFrameColor] := 50331392
	var_Items:AddBar(var_Items:AddItem("Task"),"Task",SToD("20010102"),SToD("20010105"),"K3",nil)
oDCOCX_Exontrol1:EndUpdate()
1517
Is it possible to automatically display the working days duration in a column
local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Columns as IColumns
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Tasks")
	var_Column := IColumn{var_Columns:Add("Duration")}
		var_Column:[Def,exCellValueToItemBarProperty] := 513
		var_Column:[Def,exCellValueToItemBarKey] := "A"
	var_Column1 := IColumn{var_Columns:Add("Working")}
		var_Column1:[Def,exCellValueToItemBarProperty] := 258
		var_Column1:[Def,exCellValueToItemBarKey] := "A"
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 256
	var_Chart:FirstVisibleDate := SToD("20020103")
	var_Chart:LevelCount := 2
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task 1")
	var_Items:AddBar(h,"Task",SToD("20020104"),SToD("20020108"),"A",nil)
oDCOCX_Exontrol1:EndUpdate()
1516
How can I apply colors to columns section of the control based on properties of the displaying bars

METHOD OCX_Exontrol1BarResize(Item,Key) CLASS MainDialog
	// BarResize event - Occurs when a bar is moved or resized.
	oDCOCX_Exontrol1:Refresh()
RETURN NIL

local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_ConditionalFormat as IConditionalFormat
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("<fgcolor=FF0000>Tasks > 2 days")}
	var_Column:HTMLCaption := var_Column:Caption
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("PropertyBar")}
	var_Column1:Visible := false
	var_Column1:[Def,exCellValueToItemBarKey] := ""
	var_Column1:[Def,exCellValueToItemBarProperty] := 513
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:[PaneWidth,false] := 96
	var_Chart:NonworkingDays := 0
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("%1 > 2",nil)
	var_ConditionalFormat:ForeColor := RGB(255,0,0)
	var_ConditionalFormat:Bold := true
oDCOCX_Exontrol1:SelBackColor := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:SelForeColor := oDCOCX_Exontrol1:ForeColor
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010102"),SToD("20010104"),"",nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010104"),SToD("20010107"),"",nil)
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010102"),SToD("20010104"),"",nil)
oDCOCX_Exontrol1:EndUpdate()
1515
Is it possible to update the colors on columns caption to highlight the critical path ( CPM )

METHOD OCX_Exontrol1BarResize(Item,Key) CLASS MainDialog
	// BarResize event - Occurs when a bar is moved or resized.
	oDCOCX_Exontrol1:Items:SchedulePDM(Item,Key)
	oDCOCX_Exontrol1:Refresh()
RETURN NIL

local var_Chart as IChart
local var_Column as IColumn
local var_ConditionalFormat as IConditionalFormat
local var_Items as IItems
local h1,h2,h3,h4 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("PropertyBar")}
	var_Column:Visible := false
	var_Column:[Def,exCellValueToItemBarKey] := ""
	var_Column:[Def,exCellValueToItemBarProperty] := 269
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:[PaneWidth,false] := 48
	var_Chart:NonworkingDays := 0
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("%1 != 0",nil)
	var_ConditionalFormat:ForeColor := RGB(255,0,0)
	var_ConditionalFormat:Bold := true
oDCOCX_Exontrol1:SelBackColor := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:SelForeColor := oDCOCX_Exontrol1:ForeColor
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Task 1")
	var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"",nil)
	h2 := var_Items:AddItem("Task 2")
	var_Items:AddBar(h2,"Task",SToD("20010102"),SToD("20010104"),"",nil)
	var_Items:AddLink("L1",h1,"",h2,"")
	h3 := var_Items:AddItem("Task 3")
	var_Items:AddBar(h3,"Task",SToD("20010102"),SToD("20010104"),"",nil)
	var_Items:AddLink("L2",h2,"",h3,"")
	h4 := var_Items:AddItem("Task 3")
	var_Items:AddBar(h4,"Task",SToD("20010102"),SToD("20010103"),"",nil)
	var_Items:AddLink("L3",h2,"",h4,"")
	var_Items:[DefSchedulePDM,exPDMCriticalPathBarColor] := 255
	var_Items:[DefSchedulePDM,exPDMCriticalPathLinkColor] := 255
	var_Items:SchedulePDM(0,"")
oDCOCX_Exontrol1:EndUpdate()
1514
I am using the AddShapeCorner to define icon-bars. Is it possible to define with a different color

local var_Bar,var_Bar1,var_Bar2 as IBar
local var_Bars as IBars
local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:[PaneWidth,false] := 128
	var_Bars := var_Chart:Bars
		var_Bars:AddShapeCorner(12345,1)
		var_Bar := var_Bars:Copy("Milestone","Original")
			var_Bar:StartShape := 0x3020 | exShapeIconVBar | exShapeIconRight
			var_Bar:StartColor := -1
		var_Bar1 := var_Bars:Copy("Milestone","Red")
			var_Bar1:StartShape := 0x3020 | exShapeIconVBar | exShapeIconRight
			var_Bar1:StartColor := RGB(255,0,0)
		var_Bar2 := var_Bars:Copy("Milestone","Green")
			var_Bar2:StartShape := 0x3020 | exShapeIconVBar | exShapeIconRight
			var_Bar2:StartColor := RGB(0,255,0)
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Original"),"Original",SToD("20010102"),SToD("20010102"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Red"),"Red",SToD("20010102"),SToD("20010102"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Green"),"Green",SToD("20010102"),SToD("20010102"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
1513
My icon-bars shows different when displaying in the chart. Any ideas
local var_Bar as IBar
local var_Bars as IBars
local var_Items as IItems

oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Bars := oDCOCX_Exontrol1:Chart:Bars
	var_Bars:AddShapeCorner(12345,1)
	var_Bar := var_Bars:[Item,"Milestone"]
		var_Bar:StartShape := 0x3020 | exShapeIconVBar | exShapeIconRight
		var_Bar:StartColor := -1
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Item 1"),"Milestone",SToD("20010102"),SToD("20010102"),nil,nil)
1512
The items are not colored in the chart panel

local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 128
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Item")
	oDCOCX_Exontrol1:Chart:[ItemBackColor,h] := RGB(0,255,0)
	oDCOCX_Exontrol1:Items:[ItemBackColor,h] := RGB(0,255,0)
1511
I need to know how to determine the critical path (CPM) after the SchedulePDM procedure, so I can turn red the bars and links

METHOD OCX_Exontrol1BarResize(Item,Key) CLASS MainDialog
	// BarResize event - Occurs when a bar is moved or resized.
	oDCOCX_Exontrol1:Items:SchedulePDM(Item,Key)
RETURN NIL

local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3,h4 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:[PaneWidth,false] := 48
	var_Chart:NonworkingDays := 0
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Task 1")
	var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
	h2 := var_Items:AddItem("Task 2")
	var_Items:AddBar(h2,"Task",SToD("20010102"),SToD("20010104"),"K2",nil)
	var_Items:AddLink("L1",h1,"K1",h2,"K2")
	h3 := var_Items:AddItem("Task 3")
	var_Items:AddBar(h3,"Task",SToD("20010102"),SToD("20010104"),"K3",nil)
	var_Items:AddLink("L2",h2,"K2",h3,"K3")
	h4 := var_Items:AddItem("Task 3")
	var_Items:AddBar(h4,"Task",SToD("20010102"),SToD("20010103"),"K4",nil)
	var_Items:AddLink("L3",h2,"K2",h4,"K4")
	var_Items:[DefSchedulePDM,exPDMCriticalPathBarColor] := 255
	var_Items:[DefSchedulePDM,exPDMCriticalPathLinkColor] := 255
	var_Items:SchedulePDM(0,"K1")
oDCOCX_Exontrol1:EndUpdate()
1510
How can I display the Year in Thai, Buddhist, Korean format

local var_Chart as IChart
local var_Level as ILevel

var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstWeekDay := var_Chart:LocFirstWeekDay
	var_Chart:MonthNames := var_Chart:LocMonthNames
	var_Chart:WeekDays := var_Chart:LocWeekDays
	var_Chart:AMPM := var_Chart:LocAMPM
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 0
	var_Chart:UnitScale := exDay
	var_Level := var_Chart:[Level,0]
		var_Level:Label := "<%mmmm%> <%d%>, <%loc_yyyy%> <r><%ww%>"
		var_Level:Unit := exWeek
		var_Level:ToolTip := var_Level:Label
	var_Chart:ToolTip := "<%ddd%> <%m%>/<%d%>/<%loc_yyyy%>"
oDCOCX_Exontrol1:[Description,exFilterBarDateMonths] := oDCOCX_Exontrol1:Chart:MonthNames
oDCOCX_Exontrol1:[DefaultEditorOption,exDateMonths] := oDCOCX_Exontrol1:Chart:MonthNames
1509
How does localization work

local var_Chart as IChart

var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstWeekDay := var_Chart:LocFirstWeekDay
	var_Chart:MonthNames := var_Chart:LocMonthNames
	var_Chart:WeekDays := var_Chart:LocWeekDays
	var_Chart:AMPM := var_Chart:LocAMPM
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 0
1508
Is it possible to show the bars with a different brightness (2)

local var_Appearance as IAppearance
local var_Chart as IChart
local var_Items as IItems
local h as USUAL

var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(1,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task--.ebn")
	var_Appearance:Add(2,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task-.ebn")
	var_Appearance:Add(3,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task.ebn")
	var_Appearance:Add(4,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task+.ebn")
	var_Appearance:Add(5,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task++.ebn")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:[PaneWidth,false] := 128
	var_Chart:NonworkingDays := 0
	var_Chart:Bars:Copy("Task","--"):Color := 0x1000000
	var_Chart:Bars:Copy("Task","-"):Color := 0x2000000
	var_Chart:Bars:[Item,"Task"]:Color := 0x3000000
	var_Chart:Bars:Copy("Task","+"):Color := 0x4000000
	var_Chart:Bars:Copy("Task","++"):Color := 0x5000000
oDCOCX_Exontrol1:Columns:Add("Brightness")
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("0%")
	var_Items:AddBar(h,"--",SToD("20010102"),SToD("20010104"),"--",nil)
	var_Items:AddBar(h,"-",SToD("20010105"),SToD("20010107"),"-",nil)
	var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010110"),"",nil)
	var_Items:AddBar(h,"+",SToD("20010111"),SToD("20010113"),"+",nil)
	var_Items:AddBar(h,"++",SToD("20010114"),SToD("20010116"),"++",nil)
	h := var_Items:AddItem("25%")
	var_Items:AddBar(h,"--",SToD("20010102"),SToD("20010104"),"--",nil)
	var_Items:AddBar(h,"-",SToD("20010105"),SToD("20010107"),"-",nil)
	var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010110"),"",nil)
	var_Items:AddBar(h,"+",SToD("20010111"),SToD("20010113"),"+",nil)
	var_Items:AddBar(h,"++",SToD("20010114"),SToD("20010116"),"++",nil)
	var_Items:[ItemBar,h,"<*>",exBarTransparent] := 25
	h := var_Items:AddItem("50%")
	var_Items:AddBar(h,"--",SToD("20010102"),SToD("20010104"),"--",nil)
	var_Items:AddBar(h,"-",SToD("20010105"),SToD("20010107"),"-",nil)
	var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010110"),"",nil)
	var_Items:AddBar(h,"+",SToD("20010111"),SToD("20010113"),"+",nil)
	var_Items:AddBar(h,"++",SToD("20010114"),SToD("20010116"),"++",nil)
	var_Items:[ItemBar,h,"<*>",exBarTransparent] := 50
	h := var_Items:AddItem("75%")
	var_Items:AddBar(h,"--",SToD("20010102"),SToD("20010104"),"--",nil)
	var_Items:AddBar(h,"-",SToD("20010105"),SToD("20010107"),"-",nil)
	var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010110"),"",nil)
	var_Items:AddBar(h,"+",SToD("20010111"),SToD("20010113"),"+",nil)
	var_Items:AddBar(h,"++",SToD("20010114"),SToD("20010116"),"++",nil)
	var_Items:[ItemBar,h,"<*>",exBarTransparent] := 75
1507
Is it possible to show the bars with a different brightness (1)

local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:Bars:[Item,"Task"]:Color := 0x1000000
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:[PaneWidth,false] := 128
oDCOCX_Exontrol1:Columns:Add("Brightness")
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("0%")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),nil,nil)
	h := var_Items:AddItem("25%")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),nil,nil)
	var_Items:[ItemBar,h,"",exBarTransparent] := 25
	h := var_Items:AddItem("50%")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),nil,nil)
	var_Items:[ItemBar,h,"",exBarTransparent] := 50
	h := var_Items:AddItem("75%")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),nil,nil)
	var_Items:[ItemBar,h,"",exBarTransparent] := 75
1506
So the behavior I am looking for is that a change can cascade through a bar's successors, but a change that would affect a bar's predecessors is not allowed. Is this possible to in ExG2antt

local var_Chart as IChart
local var_Items as IItems
local h,h1,h2,h3 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:OnResizeControl := exResizeChart
oDCOCX_Exontrol1:Columns:Add("Tasks")
IColumn{oDCOCX_Exontrol1:Columns:Add("Start")}:Visible := false
IColumn{oDCOCX_Exontrol1:Columns:Add("End")}:Visible := false
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20060918")
	var_Chart:[PaneWidth,false] := 64
	var_Chart:[ScrollRange,exStartDate] := var_Chart:FirstVisibleDate
	var_Chart:[ScrollRange,exEndDate] := SToD("20061231")
	var_Chart:MarkSelectDateColor := 0x7fff0000
	var_Chart:SelectLevel := 1
	var_Chart:[SelectDate,SToD("20060919")] := true
	var_Chart:AllowCreateBar := exNoCreateBar
	var_Chart:AllowLinkBars := false
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Project")
	var_Items:[CellValue,h,1] := SToD("20060921")
	var_Items:[CellValue,h,2] := SToD("20061003")
	var_Items:AddBar(h,"Summary",var_Items:[CellValue,h,1],var_Items:[CellValue,h,2],"sum",nil)
	h1 := var_Items:InsertItem(h,nil,"Task 1")
	var_Items:[CellValue,h1,1] := var_Items:[CellValue,h,1]
	var_Items:[CellValue,h1,2] := SToD("20060924")
	var_Items:AddBar(h1,"Task",var_Items:[CellValue,h1,1],var_Items:[CellValue,h1,2],"K1",nil)
	var_Items:[ItemBar,h1,"K1",exBarMinStart] := SToD("20060920")
	h2 := var_Items:InsertItem(h,nil,"Task 2")
	var_Items:[CellValue,h2,1] := var_Items:[CellValue,h1,2]
	var_Items:[CellValue,h2,2] := SToD("20060928")
	var_Items:AddBar(h2,"Unknown",var_Items:[CellValue,h2,1],var_Items:[CellValue,h2,2],"K2",nil)
	var_Items:AddLink("L1",h1,"K1",h2,"K2")
	h3 := var_Items:InsertItem(h,nil,"Task 3")
	var_Items:[CellValue,h3,1] := var_Items:[CellValue,h2,2]
	var_Items:[CellValue,h3,2] := var_Items:[CellValue,h,2]
	var_Items:AddBar(h3,"Task",var_Items:[CellValue,h3,1],var_Items:[CellValue,h3,2],"K3",nil)
	var_Items:AddLink("L2",h2,"K2",h3,"K3")
	var_Items:GroupBars(h1,"K1",false,h2,"K2",true,31,"0;4")
	var_Items:GroupBars(h2,"K2",false,h3,"K3",true,31,"0;2")
	var_Items:DefineSummaryBars(h,"sum",h1,"K1")
	var_Items:DefineSummaryBars(h,"sum",h2,"K2")
	var_Items:DefineSummaryBars(h,"sum",h3,"K3")
	var_Items:[ExpandItem,h] := true
	var_Items:[ItemBold,h] := true
oDCOCX_Exontrol1:EndUpdate()
1505
How can I have a case-insensitive filter (exFilterDoCaseSensitive flag is not set)
local var_Column,var_Column1 as IColumn
local var_Columns as IColumns
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:MarkSearchColumn := false
var_Columns := oDCOCX_Exontrol1:Columns
	var_Column := IColumn{var_Columns:Add("Car")}
		var_Column:DisplayFilterButton := true
		var_Column:FilterType := exFilter
		var_Column:Filter := "MAZDA"
	var_Column1 := IColumn{var_Columns:Add("Equipment")}
		var_Column1:DisplayFilterButton := true
		var_Column1:DisplayFilterPattern := false
		var_Column1:CustomFilter := "Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*"
		var_Column1:FilterType := exPattern
		var_Column1:Filter := "AIR BAG"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[CellValue,var_Items:AddItem("Mazda"),1] := "Air Bag"
	var_Items:[CellValue,var_Items:AddItem("Toyota"),1] := "Air Bag,Air condition"
	var_Items:[CellValue,var_Items:AddItem("Ford"),1] := "Air condition"
	var_Items:[CellValue,var_Items:AddItem("Nissan"),1] := "Air Bag,ABS,ESP"
	var_Items:[CellValue,var_Items:AddItem("Mazda"),1] := "Air Bag, ABS,ESP"
	var_Items:[CellValue,var_Items:AddItem("Mazda"),1] := "ABS,ESP"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
1504
How can I have a case-sensitive filter
local var_Column,var_Column1 as IColumn
local var_Columns as IColumns
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:MarkSearchColumn := false
var_Columns := oDCOCX_Exontrol1:Columns
	var_Column := IColumn{var_Columns:Add("Car")}
		var_Column:DisplayFilterButton := true
		var_Column:FilterType := exFilterDoCaseSensitive | exFilter
		var_Column:Filter := "Mazda"
	var_Column1 := IColumn{var_Columns:Add("Equipment")}
		var_Column1:DisplayFilterButton := true
		var_Column1:DisplayFilterPattern := false
		var_Column1:CustomFilter := "Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*"
		var_Column1:FilterType := exFilterDoCaseSensitive | exPattern
		var_Column1:Filter := "Air Bag"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[CellValue,var_Items:AddItem("Mazda"),1] := "Air Bag"
	var_Items:[CellValue,var_Items:AddItem("Toyota"),1] := "Air Bag,Air condition"
	var_Items:[CellValue,var_Items:AddItem("Ford"),1] := "Air condition"
	var_Items:[CellValue,var_Items:AddItem("Nissan"),1] := "Air Bag,ABS,ESP"
	var_Items:[CellValue,var_Items:AddItem("Mazda"),1] := "Air Bag, ABS,ESP"
	var_Items:[CellValue,var_Items:AddItem("Mazda"),1] := "ABS,ESP"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
1503
Is it possible to add a custom label to the days with a specified background color

local var_Chart as IChart
local var_Items as IItems
local h1 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:[PaneWidth,false] := 48
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Task 1")
	var_Items:AddBar(h1,"",SToD("20010102"),SToD("20010108"),"K1","Leave Blank")
	var_Items:[ItemBar,h1,"K1",exBarSelectable] := false
	var_Items:[ItemBar,h1,"K1",exBarBackColor] := 255
oDCOCX_Exontrol1:EndUpdate()
1502
What is the event fired when I change "...Chart.PaneWidthLeft" (or "...Chart.PaneWidthRight") in the Gantt splitter window
METHOD OCX_Exontrol1ChartEndChanging(Operation) CLASS MainDialog
	// ChartEndChanging event - Occurs after the chart has been changed.
	OutputDebugString(String2Psz( "End Operation(exVSplitterChange(10)" ))
	OutputDebugString(String2Psz( AsString(Operation) ))
	OutputDebugString(String2Psz( "PaneWidth:" ))
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Chart:[PaneWidth,false]) ))
RETURN NIL

METHOD OCX_Exontrol1ChartStartChanging(Operation) CLASS MainDialog
	// ChartStartChanging event - Occurs when the chart is about to be changed.
	OutputDebugString(String2Psz( "Start Operation(exVSplitterChange(10)" ))
	OutputDebugString(String2Psz( AsString(Operation) ))
	OutputDebugString(String2Psz( "PaneWidth:" ))
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Chart:[PaneWidth,false]) ))
RETURN NIL
1501
I want to ask if I can select more than one bar in the chart and move them together

local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20001229")
	var_Chart:[PaneWidth,false] := 64
	var_Chart:LevelCount := 2
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010104"),SToD("20010106"),"K2",nil)
	var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20010108"),SToD("20010110"),"K3",nil)
	h := var_Items:AddItem("")
	var_Items:AddBar(h,"",SToD("20010108"),SToD("20010110"),"","<b>Right click</b> the chart, start dragging to select multiple bars<br>or click a bar while pressing the <b>CTRL</b> key")
	var_Items:[ItemHeight,h] := 36
	var_Items:[ItemBar,h,"",exBarSelectable] := false
oDCOCX_Exontrol1:EndUpdate()